Цитата:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleServer, ExcelXP; type TForm1 = class(TForm) Button1: TButton; ExApp: TExcelApplication; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; WorkBk : _WorkBook; WorkSheet : _WorkSheet; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var A:OleVariant;//array[1..2, 1..2] of variant; B:OleVariant; k:Integer; i:integer; // B:OleVariant; begin ExApp.Connect; // ExApp.DisplayAlerts[0]:=True; //Инициализируем Excel //не показывать сообщение о сохранении // ExApp.DisplayAlerts[0]:=false; //открываем Excel-файл ExApp.Workbooks.Open('D:\Temp\book.xls', EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyP aram,EmptyParam,EmptyParam,EmptyParam,EmptyParam,E mptyParam, 0); k:=20; WorkBk:=ExApp.Workbooks.Item[1]; WorkSheet:=WorkBk.Worksheets.Get_Item(1) as _WorkSheet; A:=VarArrayCreate( [0,k], varVariant ); for i:=0 to k do A[i]:='A' + IntToStr(i); // WorkBk.Activate(1); // WorkSheet.Range['A1', 'A1'].Select; WorkSheet.Range['A1', 'EE1'].Value2:=A; // WorkSheet.Range. :='A1:A1'; //Вставляем в Excel ячейки с позиции указанной пользователем + //WorkSheet.Cells.Item[1, 'A'] :='Hello!'; ExApp.Save; ExApp.Quit; ExApp.Disconnect; end; end. |
mdb файл можешь читать напрямую без использования COM-объектов