VPF::Открытие запароленного EXCEL-файла

Allbert

Дата 1.12.2009, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 20.3.2009

Репутация: нет
Всего: нет

Здравствуйте, господа!
Помогите решить пустяковую проблемку..
Через Сервис-Параметры-Безопасность заранее задаю пароль в 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: нет
Всего: 50

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

)

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

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

--------------------

Данкинг

Дата 2.12.2009, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Код


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

Это сообщение отредактировал(а) Данкинг - 2.12.2009, 22:44

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »