Перед передачей данных из прайс-листа в программу прайс-агрегатор, мне нужно их обработать по своей схеме скриптом vbs. Чтобы определить регион с занятыми данными мне нужно получить абсолютный максимальный номер строки региона, для этого использую процедуру SpecialCells(xlCellTypeLastCell), но так как лист защищен - Эксель выдает ошибку:
Пример скрипта vbs c ошибкой на строке oLastCell = oSheet.Cells.SpecialCells(xlCellTypeLastCell):
Вопрос: как по другому получить максимальный абсолютный номер строки? Архив с примером выходит больше 100 Кб (изменить файл примера не могу, защищен), если админы удалят - вот ссылка на скачивание _
Пример скрипта vbs c ошибкой на строке oLastCell = oSheet.Cells.SpecialCells(xlCellTypeLastCell):
| Код |
|---|
sPrice = "C:\WORK\price.xls"
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False
oExcelApp.DisplayAlerts = False
oExcelApp.EnableEvents = False
oExcelApp.AskToUpdateLinks = False
Set oWorkbook = oExcelApp.Workbooks.Open(sPrice)
Set oSheet = oWorkbook.Sheets(1)
oLastCell = oSheet.Cells.SpecialCells(xlCellTypeLastCell)
iRowsCount = oLastCell.Row |
Вопрос: как по другому получить максимальный абсолютный номер строки? Архив с примером выходит больше 100 Кб (изменить файл примера не могу, защищен), если админы удалят - вот ссылка на скачивание _
