Delphi从DBgrid导出Excel

本文介绍了一种使用Delphi将数据库网格中的数据导出到Excel的方法,包括基本的数据导出流程及如何处理包含图片的复杂情况。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

注意rightStr需要用到strutils;

procedure DbGrid2Xls(dbgrd: TDBGrid; fileName: string);

var
  Xls: Variant;
  I, L: Integer;
begin
  if LowerCase(RightStr(fileName, 4)) <> '.xls' then
    fileName := fileName + '.xls';
  try
    Xls := CreateOleObject('Excel.application');
    Xls.workbooks.add;
  except
    ShowMessage('请先安装MICROSOFT EXCEL');
    Exit;
  end;
  if not dbgrd.DataSource.DataSet.IsSequenced then
    Exit;
  if dbgrd.DataSource.DataSet.IsEmpty then
    Exit;
  for I := 1 to dbgrd.Columns.Count do
  begin
    Xls.cells[1, I] := dbgrd.Columns[I - 1].Title.Caption;
  end;
  L := 2;
  try
    dbgrd.DataSource.DataSet.DisableControls;
    dbgrd.DataSource.DataSet.First;
    while not dbgrd.DataSource.DataSet.Eof do
    begin
      for I := 1 to dbgrd.Columns.Count do
      begin
        Xls.Cells[L, I].NumberFormat := '@';
        Xls.Cells[L, I] := dbgrd.DataSource.DataSet.FieldByName(dbgrd.Columns[I - 1].FieldName).AsString;
      end;
      inc(L);
      dbgrd.DataSource.DataSet.Next;
    end;
  finally
    Xls.WorkBooks[Xls.WorkBooks.Count].SaveAS(filename);
    Xls.activeWorkBook.saved := true;
    Xls.workbooks.close;
    Xls.quit;
    dbgrd.DataSource.DataSet.EnableControls;
  end;

end;

//====导出excel有图片的代码片段============

        Fpicture := Sheet.Pictures.Insert(appPath + 'tmpJpg.jpg');
        Fpicture.Width := 102;
        Fpicture.Height := 126;
        Fpicture.Select;
        Fpicture.copy;
        Sheet.Cells[L, dbgrd.Columns.Count + 1].select;
        Sheet.Pictures.Paste.Select;
        Fpicture.delete;

//==================优化速度版本=======

procedure DbGrid2XlsEx(dbgrd: TDBGrid; fileName: string);
var
  str:string;
  Xls,sheet: Variant;
  I, L: Integer;
begin
  if LowerCase(RightStr(fileName, 4)) <> '.xls' then
    fileName := fileName + '.xls';
  try
    Xls := CreateOleObject('Excel.application');
    Xls.workbooks.Add(1);
  except
    ShowMessage('请先安装MICROSOFT EXCEL');
    Exit;
  end;
  if not dbgrd.DataSource.DataSet.IsSequenced then
    Exit;
  if dbgrd.DataSource.DataSet.IsEmpty then
    Exit;
  for I := 1 to dbgrd.Columns.Count do
  begin
    str := str + dbgrd.Columns[I - 1].Title.Caption + #9;
  end;
  str := str + #13;
  try
    dbgrd.DataSource.DataSet.DisableControls;
    dbgrd.DataSource.DataSet.First;
    while not dbgrd.DataSource.DataSet.Eof do
    begin
      for I := 1 to dbgrd.Columns.Count do
      begin
       str := str + dbgrd.DataSource.DataSet.FieldByName
          (dbgrd.Columns[I - 1].FieldName).AsString + #9 ;
      end;
      str := str +#13;
      dbgrd.DataSource.DataSet.Next;
    end;
    Clipboard.AsText := str;

    sheet := Xls.Workbooks[1].Worksheets[1];
    sheet.Paste;
  finally
    Xls.workbooks[Xls.workbooks.Count].SaveAS(fileName);
    Xls.activeWorkBook.saved := true;
    Xls.workbooks.close;
    Xls.quit;
    dbgrd.DataSource.DataSet.EnableControls;
  end;
end;
 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值