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.

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;

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