Скачать: CL | DM;

Подключение к открытому файлу *.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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c