Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: 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 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1088166570
syte_ser78
2004-06-25 16:29
2004.07.18
Загадка для програмистов


1-1088599073
romeo
2004-06-30 16:37
2004.07.18
Творится какая-то странная хренотень с записью строки в поток.


3-1087809669
xmrz
2004-06-21 13:21
2004.07.18
MS SQL 7.0 DST пакет - не запускается через Job


1-1089101589
Сергей_И
2004-07-06 12:13
2004.07.18
StringGrid удаление, вставка строк


1-1088538970
Delphinist
2004-06-29 23:56
2004.07.18
Проблема с проигрыванием MIDI файлов!