Delphi 导出Excel功能

已于 2022-05-16 18:07:02 修改
阅读量1.7k 收藏 2
点赞数 1
文章标签： 编辑器 后端
于 2022-05-16 17:57:36 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jfx0309/article/details/124804569
版权

一个简单的Delphi导出Excel的例子，只为与大神们共同学习。
以一个出货通知单导出到Excle作为例：

procedure TfrmGosuncnClientInvProdShip.ExportReceiptInfo(Sender: TObject);
var h,k,top_height:integer;
Excelid,FPicture,sheet: OleVariant;
s,s1,s2,AuditNo,Sell_No,tmpstr,receiptNo,mtrl_desc,mtrl_desc_new,mtrl_name: string;
Q,Q1:TPgClientSimpleDataEntity;
asheet1,achart, range:variant;//范围
split:Char;
AuditNos:TArray;
begin
try
Excelid := CreateOLEObject(‘Excel.Application’); //创建Excel
except
Application.MessageBox(‘Excel没有安装！’, ‘提示信息’,MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
AuditNo:=etAUDIT_ID.Text;
if AuditNo=‘’ then
raise TPgError.Create(‘请选择出货通知单！’);
try
top_height:=0;
Q := TPgLib.CreateDataEntity;
Q.Close;
Q.CommandText := ‘select * from TB_MM_AUDIT_HD where AUDIT_ID =:AUDIT_ID’;
Q.Params.ParamByName(‘AUDIT_ID’).AsString := AuditNo;
Q.Open;
if not Q.IsEmpty then
begin
Sell_No:=Q.FieldByName(‘AUDIT_EX1’).AsString;
end;
Excelid.Visible := True;
Excelid.WorkBooks.Add;

sheet := Excelid.WorkSheets[1];
sheet.Select;
sheet.Columns[1].ColumnWidth:=30;
sheet.Columns[2].ColumnWidth:=14;//设置列宽度
sheet.Columns[3].ColumnWidth:=14;
sheet.Columns[4].ColumnWidth:=18;
sheet.Columns[5].ColumnWidth:=5;
sheet.Columns[6].ColumnWidth:=5;
sheet.Columns[7].ColumnWidth:=15;
sheet.Columns[8].ColumnWidth:=20;

//插入图象e79fa5e98193e59b9ee7ad9431333363393665并设置位置与大小
tmpstr:='\\127.0.0.1\picture\XXX.png';
if not TFile.Exists(tmpstr) then
begin
  Excelid.Quit;
  raise Exception.Create('\\127.0.0.1路径下不存在名字为【XXX.png】图片，请添加该图片到此目录下'); 
end;
FPicture:=sheet.Pictures.Insert(tmpstr);
FPicture.Left:=205;
FPicture.Top:=0;
FPicture.width:=125;

//HorizontalAlignment(水平) 左对齐（-4131），居中（-4108），右对齐（-4152）
//VerticalAlignment(垂直) 上对齐（-4160），居中（-4108），下对齐（-4107）

sheet.Range['B1:H1'].Merge(True); //第2单元格-第7单元格合并成1个
sheet.Cells[1,2].Value :='         设置Excel标题' ;
sheet.Cells[1,10].Value :='XXXX' ;
sheet.Cells[1,2].HorizontalAlignment:=-4108;    //居中显示
sheet.Range['B1:H1'].Font.Name := '黑体';
sheet.Range['B1:H1'].Font.Size := 17;
sheet.range['B1:H1'].font.bold:=true;
sheet.Rows[1].RowHeight :=28;
top_height:= top_height+28;

//sheet.Rows[2].RowHeight :=18;
sheet.range['B2:H2'].Merge(True);
sheet.Cells[2,2].Value := 'GS-P-W-009-001A0';
sheet.Range['B2:H2'].Font.Name := '黑体';
sheet.Rows[2].RowHeight :=18;
top_height:= top_height+18;

sheet.Cells[2,10].Value := 'XXX';
sheet.Cells[3,2].Value := '订单编号：';
sheet.Cells[3,2].HorizontalAlignment:=-4108;
sheet.range['B3:B3'].font.bold:=true;
sheet.range['C3:F3'].Merge(True);
sheet.Cells[3,3].Value := Sell_No;//Q.FieldByName('AUIDT_EX1').AsString;
sheet.Cells[3,7].Value := '发货批次号：';
sheet.Cells[3,7].HorizontalAlignment:=-4108;
sheet.range['G3:G3'].font.bold:=true;
sheet.Cells[3,8].Value :='';
sheet.Range['B3:H3'].Borders.LineStyle := 1;
//sheet.Range['B3:H3'].Borders[3].LineWeight := 2;    //指定边框线宽度：1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
sheet.Range['B3:H3'].Font.size := 12;
sheet.Rows[3].RowHeight:=30;
top_height:= top_height+30;

sheet.Cells[4,2].Value := '用户单位：';
sheet.Cells[4,2].HorizontalAlignment:=-4108;
sheet.range['B4:B4'].font.bold:=true;
sheet.range['C4:F4'].Merge(True);
sheet.Cells[4,3].Value := '';
sheet.Cells[4,7].Value := '发货日期：';
sheet.Cells[4,7].HorizontalAlignment:=-4108;
sheet.range['G4:G4'].font.bold:=true;
sheet.Cells[4,8].Value := DateTimeToStr(date());
sheet.Cells[4,8].HorizontalAlignment:= -4131;
sheet.Range['B4:H4'].Borders.LineStyle := 1;
sheet.Range['B4:H4'].Font.size := 12;
sheet.Rows[4].RowHeight:=30;
top_height:= top_height+30;

sheet.Cells[5,2].Value := '项目名称：';
sheet.Cells[5,2].HorizontalAlignment:=-4108;
sheet.range['B5:B5'].font.bold:=true;

sheet.range['C5:F5'].Merge(True);
sheet.Cells[5,3].Value := '';
sheet.Range['C5:C5'].WrapText :=True;   //换行
sheet.Cells[5,7].Value := '项目编码：';
sheet.Cells[5,7].HorizontalAlignment:=-4108;
sheet.range['G5:G5'].font.bold:=true;
sheet.Cells[5,8].Value := '';
sheet.Range['B5:H5'].Borders.LineStyle := 1;
sheet.Range['B5:H5'].Font.size := 12;
sheet.Rows[5].RowHeight:=30;
top_height:= top_height+30;

GXX_ExcelRange(sheet,range,'收货地址','B6:B7');
GXX_ExcelRange(sheet,range,'','C6:F7');
//sheet.Cells[6,2].Value := '收货地址：';
sheet.Cells[6,2].HorizontalAlignment:=-4108;
sheet.range['B6:B6'].font.bold:=true;
//sheet.range['B6:B7'].Merge(True);

//sheet.range['C6:C7'].Merge;
//sheet.range['C6:F6'].Merge(True);  //合并单元格
//sheet.range['C7:F7'].Merge(True);

//sheet.range['B6:B7'].Merge(True);

//sheet.Cells[6,3].Value :='';
sheet.Cells[6,3].HorizontalAlignment:=-4131;
//sheet.Range['C6:C6'].WrapText:=True;
sheet.Cells[6,7].Value := '联系人：';
sheet.Cells[6,7].HorizontalAlignment:=-4108;
sheet.range['G6:G6'].font.bold:=true;
sheet.Cells[6,8].Value := '';
sheet.Cells[7,7].Value := '联系电话：';
sheet.Cells[7,7].HorizontalAlignment:=-4108;
sheet.range['G7:G7'].font.bold:=true;
sheet.Cells[7,8].Value:='';
sheet.Cells[7,8].HorizontalAlignment:=-4131;
sheet.Cells[7,8].Value := '';
sheet.Range['B6:H6'].Borders.LineStyle := 1;
sheet.Range['B7:H7'].Borders.LineStyle := 1;
sheet.Range['B6:H6'].Font.Size := 12;
sheet.Range['B7:H7'].Font.Size := 12;

sheet.Cells[8,2].Value := '设备名称';
sheet.range['C8:D8'].Merge(True);
sheet.Cells[8,3].Value := '设备内容';
sheet.Cells[8,5].Value := '单位';
sheet.Cells[8,6].Value := '数量';
sheet.Cells[8,7].Value := '箱号';
sheet.Cells[8,8].Value := '每套装箱';
sheet.Cells[8,2].HorizontalAlignment:=-4108;
sheet.Cells[8,3].HorizontalAlignment:=-4108;
sheet.Cells[8,5].HorizontalAlignment:=-4108;
sheet.Cells[8,6].HorizontalAlignment:=-4108;
sheet.Cells[8,7].HorizontalAlignment:=-4108;
sheet.Cells[8,8].HorizontalAlignment:=-4108;
sheet.Range['B8:H8'].Font.Name := '宋体';
sheet.Range['B8:H8'].Font.Size := 12;
sheet.range['B8:H8'].font.bold:=true;
sheet.Range['B8:H8'].Borders.LineStyle := 1;
sheet.Rows[6].RowHeight:=30;
top_height:= top_height+30;
sheet.Rows[7].RowHeight:=30;
top_height:= top_height+30;
sheet.Rows[8].RowHeight:=20;
top_height:= top_height+20;


  sheet.Cells[h,1].Value := '';
  sheet.Cells[h,2].Value := '';  //物料名称
  sheet.Cells[h,3].Value :='';//
  sheet.Cells[h,5].Value := '';
  sheet.Cells[h,6].Value :='';         //拿未完成数量
  sheet.Cells[h,1].HorizontalAlignment:=-4108;
  sheet.Cells[h,2].HorizontalAlignment:=-4108;
  sheet.Cells[h,3].HorizontalAlignment:=-4108;
  sheet.Cells[h,5].HorizontalAlignment:=-4108;
  sheet.Cells[h,6].HorizontalAlignment:=-4108;
  sheet.Cells[h,7].HorizontalAlignment:=-4108;
  sheet.Cells[h,8].HorizontalAlignment:=-4108;
  s1:='C'+IntToStr(h)+':D'+IntToStr(h);
  sheet.range[s1].Merge(True);
  s:='B'+IntToStr(h)+':H'+IntToStr(h);
  sheet.Range[s].Font.Name := '宋体';
  sheet.Range[s].Font.size := 12;
  sheet.Range[s].Borders.LineStyle := 1;
  sheet.Range[s].WrapText :=True;     //允许自动换行
  sheet.Rows[h].RowHeight:=50;
  top_height:= top_height+50;
 
sheet.Cells[h,2].HorizontalAlignment:=-4108;
s:='B'+IntToStr(h)+':B'+IntToStr(h+2);

sheet.range[s].font.bold:=true;

sheet.Cells[h,3].Value := '总重量';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
sheet.Cells[h,4].Value := '';//Q1.FieldByName('AUDIT_QTY').AsString;
sheet.Cells[h,4].HorizontalAlignment:=-4108;
s:='E'+IntToStr(h)+':F'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := 'KG';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
//sheet.Cells[h,7].Value := '提货人签名';
sheet.Cells[h,7].HorizontalAlignment:=-4108;
s:='G'+IntToStr(h)+':G'+IntToStr(h+2);

sheet.range[s].font.bold:=true;
sheet.range[s].WrapText:=True;
s:='H'+IntToStr(h)+':H'+IntToStr(h+2);


sheet.Cells[h,8].Value := '';
sheet.Cells[h,8].HorizontalAlignment:=-4108;
s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=20;
top_height:= top_height+20;

h:=h+1;
sheet.Cells[h,3].Value := '总体积';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
sheet.Cells[h,4].Value := '';
sheet.Cells[h,4].HorizontalAlignment:=-4108;
s:='E'+IntToStr(h)+':F'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := '立方米';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=20;
top_height:= top_height+20;

h:=h+1;
sheet.Cells[h,3].Value := '总箱数';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
sheet.Cells[h,4].Value := '';
sheet.Cells[h,4].HorizontalAlignment:=-4108;
s:='E'+IntToStr(h)+':F'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := '箱';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=20;
top_height:= top_height+20;

h:=h+1;
sheet.Cells[h,2].Value := '检验';
sheet.Cells[h,2].HorizontalAlignment:=-4108;
s:='B'+IntToStr(h)+':B'+IntToStr(h);
sheet.range[s].font.bold:=true;
s:='C'+IntToStr(h)+':D'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,3].Value := '';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
s:='E'+IntToStr(h)+':F'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := '发货单位（盖章）';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
sheet.range[s].font.bold:=true;
sheet.range[s].WrapText:=True;
s:='G'+IntToStr(h)+':H'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,7].Value := '';
sheet.Cells[h,7].HorizontalAlignment:=-4108;
s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=33;
top_height:= top_height+33;

h:=h+1;
sheet.Cells[h,2].Value := '是否易损件';
sheet.Cells[h,2].HorizontalAlignment:=-4108;
s:='B'+IntToStr(h)+':B'+IntToStr(h);
sheet.range[s].font.bold:=true;
s:='C'+IntToStr(h)+':H'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,3].Value := '';
s:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s].Borders.LineStyle := 1;
sheet.Range[s].Font.size := 12;
sheet.Rows[h].RowHeight:=20;
top_height:= top_height+20;

h:=h+1;
ExcelContent('温馨提示',h,Excelid);
sheet.Cells[h,2].HorizontalAlignment:=-4108;    //居中显示
s:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s].Font.size := 20;
sheet.range[s].font.bold:=true;
sheet.Rows[h].RowHeight:=25;
top_height:= top_height+25;
sheet.Range[s].Borders.LineStyle := 1;
sheet.Range[s].Borders[3].LineStyle := 7;
sheet.Range[s].Borders[4].LineStyle := 7;



{$REGION '生成二维码'}
_split_:='_';
if AuditNo.Contains('_JH_') then
begin
  AuditNos:=AuditNo.Split(_split_);
  receiptNo:=AuditNos[2];
  Update(receiptNo,AuditNo);
  tmpstr:='\\127.0.0.1\picture\QRCodeImg\'+AuditNo+'\'+receiptNo+'.png';
  FPicture:=sheet.Pictures.Insert(tmpstr);
  FPicture.Left:=695;
  FPicture.Top := top_height;       //获取二维码距离顶部的高度  
  FPicture.width:=60;
end;
{$ENDREGION}

h:=h+1;
//sheet.Cells[h,2].Value := '收货确认';
sheet.Cells[h,2].HorizontalAlignment:=-4108;
s:='B'+IntToStr(h)+':B'+IntToStr(h+1);

sheet.range[s].Font.bold:=True;
sheet.Cells[h,3].Value := '收货总箱数：';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
sheet.Cells[h,4].Value := '';
s:='E'+IntToStr(h)+':G'+IntToStr(h+1);

sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := '收货人签名：';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
sheet.range[s].Font.bold:=True;


sheet.Cells[h,8].Value := '';
s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=18;

h:=h+1;
sheet.Cells[h,3].Value := '收货日期';
sheet.Cells[h,3].HorizontalAlignment:=-4108;
sheet.Cells[h,4].Value := '';
s:='E'+IntToStr(h)+':G'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,5].Value := '签收单位（盖章）：';
sheet.Cells[h,5].HorizontalAlignment:=-4108;
sheet.range[s].Font.bold:=True;
sheet.Cells[h,8].Value := '';


s2:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.Range[s2].Borders.LineStyle := 1;                      //1实线 2虚线 7双实线
sheet.Range[s2].Font.size := 12;
sheet.Rows[h].RowHeight:=18;

h:=h+1;
s:='B'+IntToStr(h)+':H'+IntToStr(h);
sheet.range[s].Merge(True);
sheet.Cells[h,2].Value := '      请 货 运 公 司 提 前 一 天 预 约 送 货 时 间！  谢 谢！      ';
sheet.Cells[h,2].HorizontalAlignment:=-4108;    //居中显示
sheet.Range[s].Font.Size := 14;
sheet.range[s].font.bold:=true;
sheet.Rows[h].RowHeight:=18;



Excelid.Quit;

except on e:Exception do
begin
//Application.MessageBox(‘导入数据出错！请检查文件的格式是否正确！’, ‘提示信息’, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
//Application.MessageBox(PChar(E.Message), ‘error’, 16);//抛出异常信息
raise Exception.Create(E.Message);
end;
end;
MessageBox(GetActiveWindow(), ‘EXCEL数据导出成功!’, ‘提示信息’,
MB_OK +MB_ICONWARNING);
end;

中间有很多是我项目中的需要用到的地方，大家在使用的时候记得替换掉，放入自己项目中的内容即可！

示例中的二维码是先生成，在导入到Exclel中，如有直接在Exclel中生成二维码的，可以留言交流，谢谢！

jfx0309
关注
  • 1
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
delphi高效率导出数据到excel
10-09
我之前做excel导出的时候，效率很差，尤其是数据量达到上万条的时候，要等上将近20分钟了。后来努力下，找到了简单的导出方法，几千条数据，用了不到1分钟，就轻松导出了。下面是思路和源码，供大家参考
DELPHI连接EXCEL2007分组求和、导出EXCEL.zip
01-16
DELPHI连接EXCEL2007，分组求和、导出EXCEL 用到第三方控件DBGRIDEH， 虽然DELPHI已经越来越少人用，但是DELPHI开发小型应用的速度真的是快 很多人看不起小型应用，但是100个程序员中，是不是99个都进BAT呢？
Delphi CxGrid和CxTreeList数据导出EXCEL文件
05-16 392
Delphi CxGrid和CxTreeList数据导出EXCEL文件，在Delphi12里编译通过。
delphi 导出excel边框样式
昵称总是必填 的博客
06-19 1547
delphi 样式常量值 xlNone = $FFFFEFD2; xlAutomatic = $FFFFEFF7; xlSolid = $00000001; xlInsideHorizontal = $0000000C; xlInsideVertical = $0000000B; xlDiagonalDown = $00000005; xlDiagonalUp = $00000006; xlEd...
delphi 导出 excel
07-08 278
procedure Tfrm_main.XLGW_Excel(p_int_Row_Begin, p_int_Col_Begin, p_int_Row_End, p_int_Col_End: Integer; p_str_Value, p_str: String);var m_Query : TADOQuery; m_StringList_FieldNames : TStringLi...
delphi 导出EXCEL XLSX
zxf668的博客
12-28 802
/加后缀名，确保最后是EXCEL文件。dlgSave1.Filter:= 'Excel文件(*.xlsx)|*.xlsx';//断开与EXCEL的连接。//row1:=0;//初始化行，定位在第一 行。ShowMessage('导出完毕');ShowMessage('没有数据');//以下是导出完毕后的动作，//清除不必要的字符。
Delphi实现带有格式的Excel导出功能
qq_40639680的博客
02-03 391
1.功能预览 ①：运行预览 ②：模板样式 ③：存储返参 ④：导出的Excel 2. 代码实现 //执行sql的函数 procedure TForm1.GetReportData(astrsql:string); var strSQL,err:string; i:integer; begin strSQL :='set QUOTED_IDENTIFIER off '+astrsql; //strSQL := astrsql
基于delphi的excel数据导入导出
bentti的博客
04-22 1492
因为淘宝客户的一个小需求，写了一个“基于delphi 7的excel数据导入导出”小工具。为了抛砖引玉，将这个小工具分享出来。希望对初学者和用得到的朋友有点点小小的帮助。oracle数据库连接，注意中文编码问题。 工具技术应用：Delphi 7 + mysql （或者mariaDB 10.3）； 数据操作：导入excel、导出为text文件（导出ex...
Delphi2010 cxGrid显示数据导出到excel
疯流人物
07-26 709
Delphi2010cxGrid显示数据导出到excel。
关于Delphi导出Excel，多标签、多个Sheet导出功能问题
qq_15267865的博客
06-08 1030
1.在网上找了挺久，发现这一方面的资料匮乏。自己找了好久的资料，有2种想法，第一种是先各个excel导出到本地，在将excel合并成一个excel。做了之后感觉合并有些问题。第二种是，在delphi创建excel的时候，就做成多个标签。然后在导出excel。 1.如果不是分多标签，只是单纯的导出excel procedure TFORM1.Button1Click(Sender: TObject); var SFD: TSaveDialog; DateStr, FileName, FileExt..
Delphi从DBgrid导出Excel
jjpweb的专栏
06-21 1878
procedure TDMx.DbGrid2Xls(dbgrd: TDBGrid; fileName: string);var  Xls: Variant;  I, L, J: Integer;begin  if LowerCase(RightStr(fileName, 4)) <> '.xls' then    fileName := fileName + '.xls';  try ...
Delphi导出到EXCEL
09-03
"Delphi 导出到 EXCEL" Delphi 导出到 EXCEL 中，需要使用 ComObj 库来创建 Excel 对象，并通过 Delphi 控制 Excel 的操作，包括单元格格式设定、工作表操作、单元格赋值、边框线宽度设置、页面设置等。 创建 ...
TscExcelExport 4.4-[delphi 导出excel文件].zip delphi 导出excel文件
06-01
delphi 导出excel文件 delphi 导出excel文件(支持多sheet、模板、自定义导出模块格式、图表、报表打印等)，支持最新版D10.3.1，支持Excel 97~2019。This TscExcelExport component is an advanced, powerful but ...
Delphi DBGrid导出Excel2010
12-02
Delphi DBGrid 导出 Excel 2010 Delphi DBGrid 是一个强大的数据-grid 控件，经常用于展示大量数据。然而，在实际应用中，我们经常需要将 DBGrid 中的数据导出到其他格式，例如 Excel，以便于数据分析和处理。下面...
delphi 源码 非OLE 导出 excel
03-31
一个源码类，可将 dataset 或 dbgrideh 数据导出 xls 或 csv. 采用文件直接写入方法，生成xls或csv文件。生成excel文件兼容性好，打开时无警告或提示。D7和D2010下测试通过。
DELPHI控件DBGRID导出EXCEL格式
阳光有点冷
11-23 1094
dbgrid数据导出为excel uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject); var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant; begin try ExcelId:=CreateOleObject('Excel.Application'); except ...
.NET程序集编辑器/调试器 dnSpy 使用介绍
zhaotianff的专栏
07-25 662
在最初我接触这个还是为了修改程序集里的资源文本，后面在论坛看到使用dnSpy修改程序集达到破解的目的。这玩意儿简直就是神器啊，像平常win32程序，反汇编出来，只能通过修改汇编代码来达到修改程序的目的。到这里，已经可以使用dnSpy对一般的程序集进行调试和修改了。如果程序集里定义了字符串资源，在没有源码的情况下，可以利用dnSpy修改程序集资源。直接通过文件菜单，打开本地程序集或者GAC程序集，就可以对程序集进行反编译。在没有源码的情况下，可以使用dnSpy修改方法/类的代码。
SpringCloud+Vue3多对多，多表联查
最新发布
小宋和大家一起在学习和前进的道路上分享、努力
07-27 1204
♥️作者：小宋1021🤵‍♂️：小宋1021主页♥️坚持分析平时学习到的项目以及学习到的知识，和大家一起努力呀！！！🎈🎈加油！加油！加油！加油目的：多表联查数据库：学员表(study_student) 字段：学生姓名（sts_student_name）、手机号(sts_phone)班级管理（teach_class_manage）字段：班级名称（teach_class_manage）、id（id）教师管理（hr_teacher_manage）字段：教师姓名（teacher_name）
delphi 导出excel慢
10-04
Delphi导出Excel慢的原因有很多，如下所述： 1. 数据量大：如果导出的数据量非常庞大，那么导出时间就会较长。可以考虑对数据进行分页处理，每次只导出一页数据，以减少导出时间。 2. 导出文件格式：如果选择导出的Excel格式为.xlsx，相对于.xls格式，导出速度会较慢。因为.xlsx格式的文件需要进行压缩和加密，所以处理的时间会更长。 3. 使用组件库：某些组件库的导出功能可能较慢。使用对Excel导出性能进行了优化的第三方组件库可能会提升导出速度。 4. 使用较低版本的Delphi：较低版本的Delphi可能对Excel导出性能没有做过多的优化，可以尝试使用较新版本的Delphi进行导出。 5. 数据处理方式：在导出数据之前，可能对数据进行了一些处理操作，如排序、过滤、格式转换等。这些处理操作也会增加导出的时间消耗。 为了解决这个问题，可以采取以下措施： 1. 优化查询：在导出Excel之前，可以对查询语句进行优化，使用合适的索引、减少不必要的列、使用合适的查询条件等，以提高查询速度。 2. 使用多线程：将导出Excel的操作放在一个独立的线程中进行，这样可以避免阻塞主线程，提高用户体验。 3. 数据分页处理：将数据分页导出，每次只导出一部分数据，以减少导出的时间和内存消耗。 4. 使用合适的Excel组件库：选择性能较好的第三方组件库，可以显著提升导出速度。 5. 使用合适的导出格式：如果导出速度较慢，可以尝试使用.xls格式而非.xlsx格式。 总体来说，通过优化查询、使用多线程、数据分页处理、选择合适的Excel组件库和导出格式，可以改善Delphi导出Excel慢的问题。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值