Перенос данных таблицы в Excel

← →
Nil © (2003-01-05 04:34) [0]

Необходимо определить адрес последней ячейки при переносе данных таблицы в Excel. Знаем адрес первой ячейки A1, букву второго столбца B(столбцов всего 2 - это известно)и количество записей (k). Подскажите пожалуйста!!!

← →
Чекако (2003-01-05 05:56) [1]

Dim XEnd As Long,xlSheet As Excel.Worksheet
.....
XEnd = xlSheet.Cells(65536, 1).End(xlUp).Row
это фрагмент кода макроса на VBA, переделай под Delphi

← →
Чекако (2003-01-05 06:11) [2]

cells(R,256).end(xltoleft).column
Для нахождения последнего столбца

← →
Nil © (2003-01-05 06:36) [3]

Мне не нужно найти последний столбец(я его знаю-B);
мне нужен адрес последней ячейки, куда заносятся данные.
Но все равно спасибо за совет!

← →
Чекако (2003-01-05 10:59) [4]

Какой адрес первой ячейки ты знаешь? Если тебе известны номер строки rowNom прибавь к ним кол-во записей.
Затем смотри

xlsheet.cells(2,rowNom+k).AddressLocal(RowAbsolute:=False)

Ест-но нужно код переделать из VBА в Pascal

← →
Чекако (2003-01-05 11:01) [5]

Извиняюсь вместо AddressLocal - Address
xlsheet.cells(2,rowNom+k).Address(RowAbsolute:=False)

Ест-но нужно код переделать из VBА в Pascal

Спасибо! Все получилось!

Перенос данных таблицы в Excel Найти похожие ветки