|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Здравствуйте! Укажите новичку, где ошибка
Помогите пожалуйста решить проблему. Гугл не помог
Project excel.exe raised exception class eolesyserror with message 'method active' not supported by automation object. Process stopped. Use step or run it continue. Код:
Procedure Xls_open (XLSFile:string; Grid:TStrongGrid); const xlCellTypeLastCell = $0000000B; var I,j,c : integer; begin ExlApp:= CreateOleObject('Excel.Application'); ExlApp:= WorkBooks.open(XLSFile); Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1]; Sheet.Cells.SpecialCells(xlTypeLastCell,EmptyParam).Active; r:= ExlApp.ActiveCell.Row; c:= ExlAp.ActiveCell.Column; Grid.RowCount := r; Grid.ColCount := c; for j:= 1 to r do for i:= 1 to c do Grid.Cells[i-1,j-1]:= sheet.cells[j,i]; ExlApp.Quit; ExlApp := Unnasingned; Sheet := Unnasingned; End; Ошибка в этой строчке: Sheet.Cells.SpecialCells(xlTypeLastCell,EmptyParam ).Active; На форме есть StrinGrid, пару кнопок и OpenDialog П.С. Могут быть ошибки в словах, так как печатал на айпаде. Ибо на рабочем ПК нет сети Последний раз редактировалось Admin, 04.07.2016 в 19:26. |
#2
|
||||
|
||||
WorkBooks не объявлена и вообще
Код:
ExlApp:= CreateOleObject('Excel.Application'); ExlApp:= WorkBooks.open(XLSFile); Вот этот код точно работает: Код:
Excel.ActiveCell.SpecialCells(xlLastCell, EmptyParam).Activate; Пишу программы за еду. __________________ |