Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Открытие запароленного EXCEL-файла

Автор: Allbert 1.12.2009, 15:45

Здравствуйте, господа!
Помогите решить пустяковую проблемку..
Через Сервис-Параметры-Безопасность заранее задаю пароль в EXCEL-файле. При запуске программы мне надо открыть этот файл, но вылетает ошибка "could not convert variant of type (Error) into type (Integer)"

Код


procedure TForm1.FormActivate(Sender: TObject);

begin
 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open('C:\Proba\12.xls', EmptyParam, EmptyParam, EmptyParam, 'qwert' ,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam ));
  ExcelApplication1.ConnectTo(ExcelWorkbook1.Application);
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorksheet);
    ExcelApplication1.Visible[0]:=false;
ExcelWorkbook1.Close('C:\Proba\12.xls');

end;

Подскажите, пожалуйста, как ее решить..Заранее спасибо!

Автор: Демо 2.12.2009, 21:57

Цитата(Allbert @ 1.12.2009, 15:45

)

Подскажите, пожалуйста, как ее решить..Заранее спасибо!

Параметры передаются как variant-значения, поэтому нужно определить переменную типа Variant, присвоить ей значение, и только затем передавать её в качестве параметра.

Автор: Данкинг 2.12.2009, 22:43

Код


var xls:variant;
 begin
  xls := CreateOLEObject('Excel.Application');
  xls.WorkBooks.Open(FileName := 'C:\Proba\12.xls', Password := 'qq');
 end;