Как в Delphi открыть и распечатать документ Microsoft Exel

[shurik_7866]

Нужно написать прогу которая открывает и распечатует документ Microsoft Exel. При разработке проги пакет Office установлен, а при использовании проги уже нет. Никто не подскажет в кратце как это сделать.

[Компоратор]

Распечатать попробуй вот так. Я сам не пробовал, код не мой:

{
This is a simple example how to print an Excel file using OLE.
}
uses
ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: OLEVariant;
begin
// Create an Excel instance
// Excel Instanz erzeugen
ExcelApp := CreateOleObject('Excel.Application');
try
ExcelApp.Workbooks.Open('C:\test\xyz.xls');
// you can also modify some settings from PageSetup
// Man kann auch noch einige Einstellungen von "Seite Einrichten" anpassen
ExcelApp.ActiveSheet.PageSetup.Orie ntation := xlLandscape;
// Print it out
// Ausdrucken
ExcelApp.Worksheets.PrintOut;
finally
// Close Excel
// Excel wieder schliessen
ifnot VarIsEmpty(ExcelApp) then
begin
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;
end;

[Chals]

необходимо использовать модуль
ComJbj

MsExcel := CreateOleObject('Excel.Application' );
MsExcel.Workbooc.Open['путь к книге полностью']
MsExcel.ActiveSceet.PrintOut:

Работает стопудово, сам пробовал.

[Virtson]

Chals написал тоже самое что Компоратор, только хуже )
в данном случае полный вариант важнее

[Chals]

Если более обширно, то

Организация доступа к книге EXCEL

Для взаимодействия с MS Excel в программе необходимо использовать модуль ComObj
uses ComObj;


и объявить переменную для доступа к MS Excel следующего типа:
var MsExcel: Variant;


Инициализация переменной Excel в простейшем случае можно осуществить так:
MsExcel := CreateOleObject('Excel.Application' );


Создание новой книги:
MsExcel.Workbooks.Add;


Открытие существующей книги (где path - путь к фалу с расширением xls.):
MsExcel.Workbooks.Open[path];


Открытие существующей книги только для чтения:
MsExcel.Workbooks.Open[path, 0, True];


Закрытие Excel:
MsExcel.ActiveWorkbook.Close;
MsExcel.Application.Quit;


Блокировка запросов (подтвеждений, уведомлений) Ms Excel, например, запретить запрос на сохранение файла:
MsExcel.DisplayAlerts:=False;


Отображаем Excel на экране:
MsExcel.Visible := True;


или скрываем:
MsExcel.Visible := False;


Печать содержимого активного листа MS Excel:
MsExcel.ActiveSheet.PrintOut;


Чтение/запись данных в EXCEL

Доступ к ячейке в текущей книге Excel можно осуществить следующим образом:

Для записи значения в ячейку:
MsExcel.Range['B2']:='Привет!';


Для чтения значения из ячейки:
s:=MsExcel.Range['B2'];


где B2 - адрес ячейки.

Или используя стиль ссылок R1C1:
MsExcel.Range[MsExcel.Cells[2, 2]]:='Привет!';

где [2, 2] - координата ячейки.

Вообще, ячейке Excel можно присваивать любое значение (символьное, целое, дробное, дата) при этом Ms Excel установит форматирование в ячейке применяемое по умолчанию.