Подключение к открытому файлу *.xls

← →
Ruslanyd (2005-11-10 15:03) [0]

Уважаемые мастера, день добый

Подскажите как определить открыт ли файл по заданному пути
в Excel и, если таки да, то подключиться к нему?

Работаю с Delphy 7, если важно

← →
Gugle © (2005-11-10 16:20) [1]

Можно так:

Excel:Variant - глобальная переменная

... begin if not VarIsEmpty(Excel) then begin // Проверка открытли Excel For i:=1 to ex1.Workbooks.Count do begin // Ищем там нужную нам книгу if ex1.Workbooks.Item[i].Name="MyFile.xls" then "Что то с ней делаем"; end;

← →
Gugle © (2005-11-10 16:29) [2]

Точнее вот так. С подсоединеннием к книге и первому листу.

Ex1 это TExcelApplication

... var WorkBk : _WorkBook; WorkSheet : _WorkSheet; Excel:Variant; begin if not VarIsEmpty(Excel) then begin // Проверка открыт ли Excel For i:=1 to ex1.Workbooks.Count do // Ищем там нужную нам книгу begin if ex1.Workbooks.Item[i].Name="MyFile.xls" then begin WorkBk := FSpec.ExcelApplication1.WorkBooks.Item[i]; // Подсоединяемся к книге WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet; // Подсоединяемся к первому листу в ней end; end; end;

← →
ruslanyd (2005-11-10 20:42) [3]

я так понимаю, что в моем случае при подключении к Excel
нужно использовать ConnectKind := ckRunningInstance?

ExcelApplication := TExcelApplication.Create(Owner);
ExcelApplication.ConnectKind := ckRunningInstance;

Подключение к открытому файлу *.xls Найти похожие ветки