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

Excel: ссылка на открытый документ   Найти похожие ветки 

← →
pesh   (2004-07-07 10:11) [0]

Люди!!! Кто знает как получить ссылку на уже запущенное Excel-приложение (документ)?
Пусть у нас есть ea: TExcelApplication
тогда ea.Workbooks.Open() позволит получить открытый документ через ea.ActiveWindow.
Но еслия не хочу делать Open, а сразу же после запуска проги хочу иметь ссылку на уже открытый документ?
ea.ActiveWindow в таком случае не проходит.

---

← →
Тимохов ©   (2004-07-07 10:17) [1]

я это делал года два назад - стратью брал с сайта "Королевство дельфи".
Более ничего сказать не могу, т.к. нужно искать.
Но можете поискать сами - я ее вроде недавно там видел (случайно натыкался в поисках документации по xml схемам к excel)

---

← →
Думкин ©   (2004-07-07 10:34) [2]

If Application.Documents.Count >= 1 Then
   MsgBox ActiveDocument.Name
Else
   MsgBox "No documents are open"
End If

---

← →
serg128   (2004-07-07 10:34) [3]

Вот в этом классе ( TExcelApplication) и есть свойство AttachToInterface.

---

← →
Romkin ©   (2004-07-07 10:40) [4]


var
 Excel: ExcelApplication;
 unk: IUnknown;
begin
 //Если Excel уже есть - хватаем его :))
 if Succeeded(GetActiveObject(CLASS_ExcelApplication, nil, unk)) then
   OleCheck(unk.QueryInterface(ExcelApplication, Excel))
 else //Не получилось - запущаем
   Excel := CoExcelApplication.Create;
 unk := nil;
 //Workbook - если есть, юзаем
 if Excel.Workbooks.Count > 0 then
   WorkBook := Excel.ActiveWorkbook
 else
 begin
   Excel.Workbooks.Add(EmptyParam, 0);
   Workbook := Excel.ActiveWorkbook;
 end;

---

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

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



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