Êàê îòêðûòü 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 »»