DELPHI中控制EXCEL的一个例子

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7.   StdCtrls, ComObj;
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     Button2: TButton;
13.     Button3: TButton;
14.     procedure Button1Click(Sender: TObject);
15.     procedure Button2Click(Sender: TObject);
16.     procedure Button3Click(Sender: TObject);
17.   private
18.     { Private declarations }
19.     ExcelApp: Variant;
20.   public
22.     { Public declarations }
23.   end;
25. var
26.   Form1: TForm1;
28. implementation
30. {$R *.DFM}
32. procedure TForm1.Button1Click(Sender: TObject);
33. var
34.     Path: string;
35. begin
36.     Path := ExtractFilePath(Application.exeName);
37.     if copy(Path, length(Path) ,1) <> '/' then
38.         Path := Path + '/';
39.     ExcelApp := CreateOleObject('Excel.Application');
40.     ExcelApp.WorkBooks.Open(Path+'Book2.xlt');
41.     Button1.Enabled := False;
42.     Button2.Enabled := True;
43.     Button3.Enabled := True;
44. end;
46. procedure TForm1.Button2Click(Sender: TObject);
47. var
48.     Path: string;
49. begin
50.     try
51.       Path := ExtractFilePath(Application.exeName);
52.       if copy(Path, length(Path) ,1) <> '/' then
53.           Path := Path + '/';
54.       ExcelApp.WOrkBooks[1].SaveAs(Path+'test.xls');
55.     finally
56.       Button1.Enabled := True;
57.       Button2.Enabled := False;
58.       Button3.Enabled := False;
59.       ExcelApp.WOrkBooks.Close;
60.       ExcelApp.Quit;
61.     end;
62. end;
64. procedure TForm1.Button3Click(Sender: TObject);
65. var
66.   Book: Variant;
67.   Sheet: Variant;
68.   AfterSheet: Variant;
69. begin
70.   Book := ExcelApp.WorkBooks[1];
71.   AfterSheet := Book.WorkSheets[3];
72.   Sheet := Book.WorkSheets.Add(EmptyParam, AfterSheet, 1);
73.   //Sheet.move(Book.WorkSheets[4],
74.   //Sheet := Book.WorkSheets[1];
76.   Sheet.Activate;
77.   ExcelApp.Cells[3,1] := 'TEST';
78. end;
80. end.