unitexcel1.~pas

这个是delphi下Excel的应用

unit UnitExcel1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Excel97, variants,OleServer, Buttons, StdCtrls, Spin, Activex, Excel2000;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    Button4: TButton;
    ComboBox2: TComboBox;
    Button5: TButton;
    Button6: TButton;
    OpenDialog1: TOpenDialog;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Try
        ExcelApplication1.Connect;
     Except
     End;
     ExcelApplication1.Visible[0]:=True;
     Application.BringToFront; //程序前置
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(Null,0));
     ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item[1] as _WorkSheet)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     Try
        ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.WorkSheets.Add(Null, Null ,Null, Null, 0) as _WorkSheet);
     Except
         ShowMessage('Failure');
     End;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
     Try
        ExcelApplication1.Quit;
        ExcelWorksheet1.Disconnect;
        ExcelWorkbook1.Disconnect;
        ExcelApplication1.Disconnect;
     Except
     End;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i: Integer;
begin
     ComboBox1.Clear;
     For i:=1 to ExcelWorkbook1.Worksheets.Count do
        ComboBox1.Items.Add((ExcelWorkbook1.Worksheets.Item[i] as _WorkSheet).Name);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item[ComboBox1.ItemIndex+1] as _WorkSheet);
     ExcelWorkSheet1.Activate;
end;

procedure TForm1.ComboBox2DropDown(Sender: TObject);
var
i: Integer;
begin
     ComboBox2.Clear;
     if ExcelApplication1.Workbooks.Count >0 then
     For i:=1 to ExcelApplication1.Workbooks.Count do
     Combobox2.Items.Add(ExcelApplication1.Workbooks.Item[i].Name);
end;


procedure TForm1.ComboBox2Change(Sender: TObject);
begin
     ExcelWorkSheet1.Disconnect;
     ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[Combobox2.ItemIndex+1]);
     ExcelWorkBook1.Activate;
     ExcelWorksheet1.ConnectTo(ExcelWorkBook1.ActiveSheet as _WorkSheet);
     ExcelWorkSheet1.Activate;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
     ExcelWorkSheet1.Range['A1','C8'].Select;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
   idx:integer;
begin
     for idx:=1 to 30 do
     begin
          ExcelWorksheet1.Cells.Item[idx,1]:='Hello '+IntToStr(idx);
          ExcelWorksheet1.Cells.Item[idx,2]:= idx;
     end;
     ExcelWorksheet1.Cells.Item[31,2]:='=SUM(B1:B30)';
     ShowMessage('Total of B1 to B30 is '+string(ExcelWorksheet1.Cells.Item[31,2]));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Begin
     Try
        ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open(OpenDialog1.FileName,Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, 0));
        ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
     Except;
     End;
  End;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
     ExcelWorksheet1.ClearArrows;
     ExcelWorksheet1.Cells.Item[1,2]:=100;
     ExcelWorksheet1.Cells.Item[1,2]:=160;
     ExcelWorksheet1.Cells.Item[1,2]:=130;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
     ExcelApplication1.Run('宏3');
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
     Excelworksheet1.PrintOut();
end;

end.