盒子论坛 v2.1

////加入TExcelApplication控件
procedure Tfrm_kpset.WriteExcel(AdsData: TDataSet; sName, Title: string);
var
  ExcelApplication1: TExcelApplication;
  ExcelWorksheet1: TExcelWorksheet;
  ExcelWorkbook1: TExcelWorkbook;
  i, j: integer;
  //filename: string;
begin
  //filename := concat(sName, '.xls');
  try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
  except
    Application.Messagebox('Excel 没有安装!', '系统提示', MB_ICONERROR + mb_Ok);
    Abort;
  end;
  try
    Screen.Cursor := crSQLWait;
    ExcelApplication1.Workbooks.Add(EmptyParam, 0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
    AdsData.First;
    for j := 0 to AdsData.Fields.Count - 1 do
    begin
      ExcelWorksheet1.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel;
      ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10';
    end;
    for i := 4 to AdsData.RecordCount + 3 do
    begin
      for j := 0 to AdsData.Fields.Count - 1 do
      begin
        ExcelWorksheet1.Cells.item[i, j + 1] :=
          AdsData.Fields[j].Asstring;
        ExcelWorksheet1.Cells.item[i, j + 1].font.size := '10';
      end;
      AdsData.Next;
    end;
    ExcelWorksheet1.Columns.AutoFit;
    ExcelWorksheet1.Cells.item[1, 2] := Title;
    ExcelWorksheet1.Cells.Item[1, 2].font.size := '14';
    ExcelWorksheet1.SaveAs(sName);
    Application.Messagebox(pchar('数据成功导出:' + sName), 'Hello',
      mb_Ok);
  finally
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
    ExcelApplication1.Free;
    ExcelWorksheet1.Free;
    ExcelWorkbook1.Free;
    Screen.Cursor := crDefault;
  end;
end;
----------------------------------------------
▄︻┻┳═

作者：

lyp8899 (lyp8899)	★☆☆☆☆	-
	盒子活跃会员

2006/3/17 17:46:47

2楼：

用法:
WriteExcel(DbGrid1.DataSource.DataSet ,SaveFileName, 'Titlestring');
----------------------------------------------
▄︻┻┳═

作者：

liuguilglg (奔跑的蜗牛)	★☆☆☆☆	-
	普通会员

2006/3/17 21:50:49

3楼：

lyp兄，能大概解释一下主要步骤吗，是起什么作用
----------------------------------------------
-

信息

登陆以后才能回复