Как открыть 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 »»