Êàê îòêðûòü Excel-åâñêèé ôàéë
È ïîñëàë îí ñâîé êîìï íà òðè êíîïêè. [Ctrl/Alt/Del] |
procedure OpenExcelBook; var VExcel: Variant; begin try //ïðîâåðÿåì, íåò ëè çàïóùåííîãî Excel VExcel := GetActiveOleObject('Excel.Application'); except //åñëè íåò, òî çàïóñêàåì on EOLESysError do VExcel := CreateOleObject('Excel.Application'); end; with VExcel do begin Visible := True; //Îòêðûâàòü Excel íà ïîëíûé ýêðàí WindowState := -4137; //íå ïîêàçûâàòü ïðåäóïðåæäàþùèå ñîîáùåíèÿ VExcel.DisplayAlerts := False; //Îòêðûâàåì ðàáî÷óþ êíèãó WorkBooks.Open('C:\Temp\MyBook.xls'); //Ñòàíîâèìñÿ íà ïåðâûé ëèñò WorkSheets[1].Activate; end; end; |
Äàëåå: Êàê îòñëåäèòü îòêðûòèå è çàêðûòèå äîêóìåíòîâ â ïðèëîæåíèè Microsoft Word »»