DELPHI中控制EXCEL的一个例子
2008-09-23 10:50
357 查看
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
ExcelApp: Variant;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Path: string;
begin
Path := ExtractFilePath(Application.exeName);
if copy(Path, length(Path) ,1) <> '/' then
Path := Path + '/';
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open(Path+'Book2.xlt');
Button1.Enabled := False;
Button2.Enabled := True;
Button3.Enabled := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Path: string;
begin
try
Path := ExtractFilePath(Application.exeName);
if copy(Path, length(Path) ,1) <> '/' then
Path := Path + '/';
ExcelApp.WOrkBooks[1].SaveAs(Path+'test.xls');
finally
Button1.Enabled := True;
Button2.Enabled := False;
Button3.Enabled := False;
ExcelApp.WOrkBooks.Close;
ExcelApp.Quit;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Book: Variant;
Sheet: Variant;
AfterSheet: Variant;
begin
Book := ExcelApp.WorkBooks[1];
AfterSheet := Book.WorkSheets[3];
Sheet := Book.WorkSheets.Add(EmptyParam, AfterSheet, 1);
//Sheet.move(Book.WorkSheets[4],
//Sheet := Book.WorkSheets[1];
Sheet.Activate;
ExcelApp.Cells[3,1] := 'TEST';
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
ExcelApp: Variant;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
Path: string;
begin
Path := ExtractFilePath(Application.exeName);
if copy(Path, length(Path) ,1) <> '/' then
Path := Path + '/';
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open(Path+'Book2.xlt');
Button1.Enabled := False;
Button2.Enabled := True;
Button3.Enabled := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Path: string;
begin
try
Path := ExtractFilePath(Application.exeName);
if copy(Path, length(Path) ,1) <> '/' then
Path := Path + '/';
ExcelApp.WOrkBooks[1].SaveAs(Path+'test.xls');
finally
Button1.Enabled := True;
Button2.Enabled := False;
Button3.Enabled := False;
ExcelApp.WOrkBooks.Close;
ExcelApp.Quit;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Book: Variant;
Sheet: Variant;
AfterSheet: Variant;
begin
Book := ExcelApp.WorkBooks[1];
AfterSheet := Book.WorkSheets[3];
Sheet := Book.WorkSheets.Add(EmptyParam, AfterSheet, 1);
//Sheet.move(Book.WorkSheets[4],
//Sheet := Book.WorkSheets[1];
Sheet.Activate;
ExcelApp.Cells[3,1] := 'TEST';
end;
end.
相关文章推荐
- DELPHI中控制EXCEL的一个例子
- Delphi 控制Excel 例子,参考资料
- 一个小例子集合xlrd,matplotlib,numpy,scipy使用方法(从Excel导入数据)
- Delphi控制Excel的方法
- 一个Excel导入SQL server的例子(分别使用游标、CTE、master..spt_values实现)
- delphi 控制 excel,创建报表
- c#中子线程控制进度条的一个简单例子 - jinjazz - CSDNBlog
- 以下是一个完整的关闭excel进程的例子
- 一个Socket5的例子(Delphi)
- 用Delphi将数据导入到Excel并控制Excel
- 控制界面是否可输入的一个例子
- 一个Excel导入SQL Server的例子
- c#中子线程控制进度条的一个简单例子(多线程问题)
- Delphi控制Excel的经验(一)
- 一个php中的数据输出到excel的例子(database:PostgreSQL)
- poi操作Excel的一个小例子
- 解析Excel注释,填充并生成报表的一个例子
- Delphi控制Excel的方法 OLE
- VBA 控制 Excel 制作表格的例子
- 控制多个datawindow数据合并成一个excel导出【PB】