我的一段 delphi 控制 Excel 的代码

最新推荐文章于 2024-09-10 15:52:35 发布

qi_jianzhou

最新推荐文章于 2024-09-10 15:52:35 发布

阅读量961

点赞数

分类专栏： Delphi 文章标签： excel delphi integer null c

本文链接：https://blog.csdn.net/qi_jianzhou/article/details/906110

版权

Delphi 专栏收录该内容

97 篇文章 0 订阅

订阅专栏

需要把数据导出到 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;