我的一段 delphi 控制 Excel 的代码
来源:互联网 发布:加强网络管理工作 编辑:程序博客网 时间:2024/05/01 09:52
需要把数据导出到 Excel 中
学会录制宏,帮助很大
{ 保存成 excel }
procedure TFormPayBank.FSaveExcel(ds:TDataSet;haveWidth:boolean);
var
ExcelApp: Variant;
r,c:integer; // row column
rc:integer;
begin
//r := 1;
//c := 1;
screen.Cursor := crHourGlass;
self.Caption := '正在导出数据......';
ExcelApp := CreateOleObject( 'Excel.Application');
try
ExcelApp.Caption := '银行报盘';
ExcelApp.WorkBooks.Add;
ExcelApp.WorkBooks[1].Activate;
ds.First;
rc := ds.RecordCount;
for r := 1 to rc do
begin
for c := 1 to ds.FieldCount-1 do
begin
ExcelApp.Cells[r,c] := ds.Fields[c-1].AsString
end;
ds.Next;
end;
if haveWidth then
begin
ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 19;
ExcelApp.ActiveSheet.Columns[1].NumberFormatLocal := '@';
//ExcelApp.ActiveSheet.Range('''A1:A'+intTostr(rc)+'''').HorizontalAlignment:='xlLeft';
ExcelApp.ActiveSheet.Columns[2].ColumnWidth := 16;
ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 42;
end;
//ExcelApp.SaveAs('c:/a.xls');
ExcelApp.Visible := true;
finally
//ExcelApp.WorkBooks.Close;
ExcelApp := null;
screen.Cursor := crDefault;
self.Caption := '银行报盘';
end;
end;
- 我的一段 delphi 控制 Excel 的代码
- 一段简单的Delphi代码
- 一段控制红外线的代码
- 一段控制摄像头的代码
- Delphi控制Excel的整理
- Delphi控制Excel的方法
- 共享一段Excel导入Notes的代码
- 一段过滤HTML控制符的代码
- 我最耻辱的一段代码
- ajax 我写的一段代码
- 一段改变我思想的代码!!!
- Delphi控制Excel的方法 OLE
- Delphi控制Excel的方法 OLE
- DELPHI中控制EXCEL的一个例子
- DELPHI中控制EXCEL的一个例子
- Delphi控制Excel的经验(二) 分享
- Delphi控制Excel的经验(一)
- delphi 中设定 合计行信息的一段代码
- ESR五部曲之四——Homesteading the Noosphere 开拓智域
- Tomcat中的中文问题解决
- 世界杯随笔 - 1
- ESR五部曲之五——The Magic Cauldron 魔法大熔炉
- 关于sun.io.MalformedInputException
- 我的一段 delphi 控制 Excel 的代码
- NUnit的属性
- 文件上传
- The difference between Process and Procedure
- 完全用Linux工作,摈弃Windows
- HTML语言学习笔记之一
- 如何写makefile?
- Daniel Kang的Blog
- 数学函数