unit1.pas

对现有EXCLE表写入例子

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, Spin, OleServer, Excel2000;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    ExcelApplication1: TExcelApplication;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;




implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
begin
  if SaveDialog1.Execute then begin
    ExcelApp := CreateOleObject( 'Excel.Application' );
    try
      ExcelApp.Visible := False;
      ExcelApp.WorkBooks.Open(SaveDialog1.FileName);
      ExcelApp.WorkSheets[1].Activate;


      ExcelApp.Cells[SpinEdit1.Value,SpinEdit2.Value].Value := Edit1.Text;
      
      if not ExcelApp.ActiveWorkBook.Saved then
        ExcelApp.ActiveWorkBook.save;

    finally
      ExcelApp.Quit;
      end;
    end;
end;

end.