Excel беспорядочно заполнен данными
Необходимо узнать кол-во строк и столбцов на листе, но используя COM.
Нашел скрипт здесь: http://autoit-script.ru/index.php/topic,6147.0.html
Но данный пример работает корректно только тогда, когда обязательно заполнена самая первая ячейка. Помогите пожалуста его доработать.
Необходимо узнать кол-во строк и столбцов на листе, но используя COM.
Нашел скрипт здесь: http://autoit-script.ru/index.php/topic,6147.0.html
Но данный пример работает корректно только тогда, когда обязательно заполнена самая первая ячейка. Помогите пожалуста его доработать.
Код:
$sFilePath = @ScriptDir & '\table.xls'
If Not FileExists($sFilePath) Then
MsgBox(262208, 'Ошибка!', 'Файл отсутствует!')
Exit
EndIf
$oExcel = ObjCreate('Excel.Application') ; создаем объект Excel
If Not IsObj($oExcel) Then
MsgBox(262208, 'Ошибка!', 'Не удалось запустить Excel!')
Exit
EndIf
$oExcel.Visible = False ; Excel будет невидим
$oExcel.WorkBooks.Open($sFilePath, Default, False)
With $oExcel.ActiveSheet
ConsoleWrite('Используемых строк в таблице: ' & .UsedRange.Rows.Count & @CRLF)
ConsoleWrite('Используемых колонок в таблице: ' & .UsedRange.Columns.Count & @CRLF)
EndWith
$oExcel.Application.Quit ; закрытие Excel