Уважаемые пользователи форума, подскажите пожалуйста, как можно определить номер последней заполненной строки в документе Excel, без анализа содержания ячеек. ( Связь с Excel ведется через COM )
Заранее благодарю !
Полная версия этой страницы: Delphi+excel
Хммм.. наверно никак... по крайней мере сходу ничего не приходит ..
Да и вопрос не совсем корректен .. последняя .. считая по строке или по столбцу ?
Да и вопрос не совсем корректен .. последняя .. считая по строке или по столбцу ?
Добрый день! Приятно слышать знакомые голоса! 
Данные в Excel расположены в строках. Если открыть документ, то Excel точно изобразит размер маркера на левой полосе прокрутки исходя из числа видимых на экране строк и их общего числа в документе. Это наводит меня на мысль, что Excel знает номер последней строки ( и столбца ) на листе. Кто знает как из Delphi получить эту информацию от Excel, поделитесь пожалуйста.
Данные в Excel расположены в строках. Если открыть документ, то Excel точно изобразит размер маркера на левой полосе прокрутки исходя из числа видимых на экране строк и их общего числа в документе. Это наводит меня на мысль, что Excel знает номер последней строки ( и столбца ) на листе. Кто знает как из Delphi получить эту информацию от Excel, поделитесь пожалуйста.
Для: ShingelD
это из самого Excel'а
Цитата
msgbox (Sheets(1).Cells(Sheets(1).[a1].CurrentRegion.Rows.Count, 1).Value)
этот код выведет массажбокс со значением последней ячейки в первом столбце первого листа.
этот код выведет массажбокс со значением последней ячейки в первом столбце первого листа.
Цитата
Application.SpecialCells(xlLastCell)
это из самого Excel'а
Чето не идет.
Спасибо за наводку, буду пробовать ещё!
Спасибо за наводку, буду пробовать ещё!
У меня получилось так :
const
xlCellTypeLastCell = $0000000B;
...
xl_app.ActiveWorkbook.Sheets.Item[1].Cells.SpecialCells(xlCellTypeLastCell).Acti
vate;
last_row := xl_app.ActiveCell.Row
const
xlCellTypeLastCell = $0000000B;
...
xl_app.ActiveWorkbook.Sheets.Item[1].Cells.SpecialCells(xlCellTypeLastCell).Acti
vate;
last_row := xl_app.ActiveCell.Row
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.