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

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

Неполный список книг в Excel 2003 [Delphi, Windows]

Asail ©   (2007-01-25 23:16:00) 

Столкнулся с такой проблемой:
нужно перебрать все открытые Workbooks. Задача вроде тривиальная, но в Excel 2003 столкнулся с тем, что если несколько раз запустить приложение Excel, то получается добраться только до книг из первого запущенного приложения. Привожу код:

ListBox.Clear;
 try
   XL := GetActiveOleObject('Excel.Application');
 except
   ShowMessage('Can''t connect to the opened excel application!');
   Exit;
 end;
 try
   for i := 1 to XL.Workbooks.Count do
     ListBox.Items.Add(XL.Workbooks[i].FullName);
 finally
   XL := Unassigned;
 end;

Пример последователности операций для демонстрации трабла:
1. Открываем 1-й экземпляр Excel
2. Открываем 2 книги (Book1 & Book2)
3. Открываем 2-й экземпляр Excel
4. Открываем в нем еще 2 книги (Book3 & Book4)
5. Запускаем мою прогу и получаем в ListBox: Book1,Book2.
Вопрос как добраться до Book3 и Book4?
Thanks

---

umbra   (2007-01-30 11:29:00) [1]

почитайте статью http://www.gekko-software.nl/Delphi/art13.htm. Там, правда, о Ворде, но общий принцип изложен. Только поздним связыванием Вы уже не обойдетесь.

---

Asail   (2007-01-29 18:02:00) [2]

Может и ошибаюсь (нет возможности проверить), но по-моему в 97/2000 версиях нельзя было открыть несколько экземпляров Excel. Документов (книг) ск-ко хочешь, а апликация только одна.
Но, даже, если и нет - то как все-таки перебрать ВСЕ ОТКРЫТЫЕ книги?

---

umbra   (2007-01-29 11:49:00) [3]

> в более старых версиях такой проблемы не было

в каких это более старых версиях этого не было?

---

Asail   (2007-01-27 01:54:00) [4]

> Что мешает все книги открывать в одном Excel-e ?

Пользователь мешает. Открывает книги так, как ему вздумается, а потом предъявляет претензии. Кстати, в более старых версиях такой проблемы не было.

---

YurikGL   (2007-01-26 22:27:00) [5]

Что мешает все книги открывать в одном Excel-e ?

---

Asail   (2007-01-26 15:25:00) [6]

> а межет CreateOleObject('Excel.Application');

А чем это поможет? Нужно подключиться к уже запущенному экземпляру, не запуская нового.


> закрыть первый экземпляр :)

Не годиться...

---

Array   (2007-01-26 11:06:00) [7]

> XL := GetActiveOleObject('Excel.Application');

а межет CreateOleObject('Excel.Application');

---

umbra   (2007-01-26 10:11:00) [8]

> Вопрос как добраться до Book3 и Book4?

закрыть первый экземпляр :)
а зачем нужно именно GetActiveOleObject?

---

Наверх