Delphi World - Как открыть Excel-евский файл
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как открыть 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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования