Работа с Excel, переход по ячейкам в строке

[mr.Gbabak]

Возник вопрос, а как сделать циклический переход по ячейкам в строке, :stars:
К примеру от B6 до BZZZ6?

 

[Cornet]

А вам очень критично обращаться к ячейкам по буквам?
Проще использовать R1C1, и к B6 обратится так:

_ExcelWriteCell ( $oExcel, $sValue, 6 , 2)

 

[madmasles]

mr.Gbabak [?]

как сделать циклический переход по ячейкам в строке

Что значит переход? Их надо активировать, получать их значение или еще что-то?

 

[mr.Gbabak]

madmasles
Мне надо будет получать значение, и записывать его в другое место, на другом листе. Просто таблица, порядка 100 столбцов и 3000 строк.

 

[madmasles]

mr.Gbabak [?]

таблица, порядка 100 столбцов и 3000 строк

Прочитайте ее в массив функцией

_Excel_RangeRead()

и делайте дальше с ней то, что нужно.

 

[mr.Gbabak]

Или я плохо объяснил, или я Вас не понимаю.
Мне нужно, чтобы функция считывала из одной ячейки, и записывала в другую.
По одной ячейке я могу написать:

#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $sWorkbook = @ScriptDir & "\1.xls"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
$oWorkbook = _Excel_BookAttach($sWorkbook)

$read = _Excel_RangeRead($oWorkbook, 'лист1', 'E6');считывается из столбца

_Excel_RangeWrite($oWorkbook, 'лист1', $read,'A2');записывается в строку

$read = _Excel_RangeRead($oWorkbook, 'лист1', 'E7');считывается из столбца
_Excel_RangeWrite($oWorkbook, 'лист1', $read,'A3');записывается в строку

Вопрос собственно и стоит, как считать из столбца в диапазоне E6-E300, и записать в строку A2-AZZ2?
Мне именно не понятно, как задать условие циклу For...To...Step, ведь в Excel буквенно-цифровой адрес.

OffTopic:
Цикл же прибавление букав не поймет? :-\

 

[inververs]

Вам же написали, считывайте сразу весь диапазон

 

[Cornet]

Обновил Autoit, оказывается они там всю библиотеку перелопатили. Ладно хоть себе пишу без библиотек ;)

Мне именно не понятно, как задать условие циклу For...To...Step, ведь в Excel буквенно-цифровой адрес.

как-то так:

#include <Excel.au3>

For $i = 1 To _Excel_ColumnToNumber("AZZ")
	ConsoleWrite(_Excel_ColumnToLetter($i)&"2" & "   ")
Next

Но как вам и советуют лучше считывать и записывать целым диапазоном, гораздо быстрее будет.


Добавлено:

Сообщение автоматически объединено: 18 Авг 2015

Диапазоном писать так:

#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $sWorkbook = @ScriptDir & "\1.xlsx"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
$oWorkbook = _Excel_BookAttach($sWorkbook)

$read = _Excel_RangeRead($oWorkbook, 'лист1', 'E6:E300')
_ArrayTranspose($read)
_Excel_RangeWrite($oWorkbook, 'лист1', $read,'A2')