код
Цитата:
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.
|
win-kim добавил 23.10.2006 в 07:34
mdb файл можешь читать напрямую без использования COM-объектов