Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Базы";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
7-87175
DVM
2002-11-01 09:37
2003.01.27
Защита программы от закрытия в WinNT/2000/XP


8-86966
Asderg
2002-10-08 08:25
2003.01.27
как сделать из double вычислений вычисления с фикс точкой.


4-87232
GoldenFILL
2002-12-10 07:32
2003.01.27
Как можно в существующее MDI приложение внедрить чилдрен форму ?


1-86799
Darkwin
2003-01-17 13:52
2003.01.27
Cоздание оснастки для mmc


14-87032
McSimm
2003-01-08 11:16
2003.01.27
Начните день с хорошего настроения :-)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский