| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Ruslanyd ©   (2005-11-10 15:03:00) 

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

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

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

---

ruslanyd   (2005-11-10 20:42:00) [1]

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

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

---

Gugle   (2005-11-10 16:29:00) [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;


---

Gugle   (2005-11-10 16:20:00) [3]

Можно так:

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;


---

Наверх