Delphi7 + Excel XP

← →
Itsme (2005-01-13 09:53) [0]

Здравствуйте!

Помогите, пожалуйста, решить проблему:
используется Delphi 7 + MS Office XP
При попытке открыть существующую книгу:
XLSApp.WorkBooks.Open(WorkBookName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPar am,EmptyParam,EmptyParam,EmptyParam,True,0);
выдается сообщение "OLE error 800A03EC".
В Excel установлена "птица" на Сервис-Параметры-Безопасность-Безопасность макросов-Надежные источники-Доверять доступ...
Раньше, при использовании Delphi5 и Excel97 все работало (в WorkBooks.Open было на 2 параметра меньше).
Что надо сделать?

Спасибо.

← →
asafr © (2005-01-13 10:42) [1]

Причин - то множество может быть...
Например, что у тебя в разделе uses объявлено? Не Excel97 случаем?

← →
Itsme (2005-01-14 08:14) [2]

ExcelXP

← →
Orc © (2005-01-14 10:02) [3]

Я делаю так:
... var excel:variant; begin Excel := CreateOleObject("Excel.Application"); Excel.Workbooks.Open(path+filename); Excel.Visible:=false; for i := 1 to 100 do begin for j := 1 to 10 do S := s+trim(Excel.Sheets[1].Cells[i,j].Text); showmessage(s); end; s:="" end; Excel.DisplayAlerts := False; Excel.Quit; end; ...
Привер считывает построчно до 100 строки включая в строку 10 колонок.

← →
ЮЮ © (2005-01-14 10:28) [4]

>Привер считывает построчно до 100 строки включая в строку 10 колонок.

И сто раз показывает showmessage(s), чтобы спасибо за пример сказали

← →
asafr © (2005-01-14 11:24) [5]

Тогда может быть такие причины, проверь....
а)Некоторые данные не могут быть использрваны на старницы EXCEL в результате ошибки преобразования (например, Дата, формат которой должен соответствовать dd.mm.yyyy). Проверь, что у тебя с WorkBookName, не противоречит ли она какому-нибудь правилу создания страниц Excel
б)Может быть из-за высоких параметров безопасности. Понизь параметр
в)Если на компе стоит AVP, то у него такая штука есть как Office Guard. Попробуй его деинсталировать.

и еще вариант в догонку...
Попробуй так, хотя лично не проверял... OLEVariant(XLSApp.WorkBooks).Open(WorkBookName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa ram,EmptyPar am,EmptyParam,EmptyParam,EmptyParam,True,0);

← →
Igor_thief (2005-01-14 12:25) [7]

ExcelApplication.Workbooks.Add(Path, index);

> И сто раз показывает showmessage(s), чтобы спасибо за пример
> сказали

Умный человек нажмёт Ctrl+F2 в рантайме, если ему надоест showmessage смотреть ;)

Delphi7 + Excel XP Найти похожие ветки