Скачать: CL | DM;

Перенос данных таблицы в 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

---

← →
Nil ©   (2003-01-08 11:24) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c