Ввод данных в таблицу

[gezan1]

Добрый день.
Имеется в программе таблица на три столбца. Вводит данные построчно

clipput($aResult003[0][0]&@TAB& $aResult003[0][1]&@TAB&$aResult003[0][2]&@CRLF&$aResult003[1][0]&@TAB& $aResult003[1][1]&@TAB&$aResult003[1][2])

Но данных много. Как -то можно это укоротить через массив?

For $i = 0 To UBound($aResult003) - 1
 clipput($aResult003[0][i]&@TAB)
  Next

 

[alex33]

For $i = 0 To UBound($aResult003) - 1
	$data=ClipGet()
	clipput($data&@TAB&$aResult003[0][i])
Next

 

[gezan1]

Добавил Dim. Ругается (неопределенная функция) на - ' i ]'

Dim $aResult003[2][3]
For $i = 0 To UBound($aResult003) - 1
    $data=ClipGet()
    clipput($data&@TAB&$aResult003[0][i])
Next

Подскажи, что не правильно?

 

[edyapd]

Dim $aResult003[2][3]
For $i = 0 To UBound($aResult003, 2) - 1
    $data=ClipGet()
    clipput($data&@TAB&$aResult003[0][$i])
Next

 

[gezan1]

Так проходит, но не вставляет.

Dim $aResult003[2][3]
For $i = 0 To UBound($aResult003, 2) - 1
    $data=ClipGet()
    clipput($data&@TAB&$aResult003[0][$i])
Next

Цепляет в EXSEL окно - 'Найти и заменить'
Нет, вставляет, но не то.--- Любое значение из буфера.


Добавлено:

Сообщение автоматически объединено: 13 Июл 2015

заменил

Dim $aResult003[2][3];на
Dim $data[2][3]

Так берет значения с одной строки и разносит по столбцам
200
200 2550
200 2550 50


Добавлено:

Сообщение автоматически объединено: 13 Июл 2015

Почему берет только первую строку?

clipput('')
Dim $data[2][4]
For $i = 0 To UBound($aResult003,2) - 1
    $data=ClipGet()
    clipput($data&@TAB&$aResult003[ 0][$i])
Next

Тут указано две строки

Local $aResult003 = _Excel_RangeRead($oWorkbook, 1, "A3:D4", 1)

 

[gezan1]

Всем спасибо.
решил так

clipput('')
 clipput(_ArrayToString($aResult003,@TAB))