БОЛЬШОЙ FAQ ПО DELPHI



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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ