Текущий архив: 2005.01.30;
Скачать: CL | DM;
Вниз
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. Попробуй его деинсталировать.
← →
asafr © (2005-01-14 11:30) [6]и еще вариант в догонку...
Попробуй так, хотя лично не проверял...
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);
← →
Orc © (2005-01-14 13:49) [8]
> И сто раз показывает showmessage(s), чтобы спасибо за пример
> сказали
Умный человек нажмёт Ctrl+F2 в рантайме, если ему надоест showmessage смотреть ;)
Страницы: 1 вся ветка
Текущий архив: 2005.01.30;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.033 c
