在delphi中,从dbgrid导出数据保存成excel文件
来源:互联网 发布:网络mg老虎机赢钱技巧 编辑:程序博客网 时间:2024/05/21 15:42
var
c, r, i, j: integer;
app: Olevariant;
TempFileName, ResultFileName: string;
begin
try
result := True;
app := CreateOLEObject('Excel.application');
// app.WorkBooks.Add(xlWBatWorkSheet);
except
Application.MessageBox('Excel没有正确安装!','警告',MB_OK);
result := False;
exit;
end;
SaveDialog1.DefaultExt := 'xls';
SaveDialog1.FileName := SheetName;
if SaveDialog1.Execute then
TempFileName := SaveDialog1.FileName
else
Exit;
app.Workbooks.add;
app.Visible := false;
Screen.Cursor := crHourGlass;
DBGrid.DataSource.DataSet.First;
c := DBGrid.DataSource.DataSet.FieldCount;
r := DBGrid.DataSource.DataSet.RecordCount;
Application.ProcessMessages;
for i := 0 to c - 1 do
app.cells(1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].DisplayLabel;
for j := 1 to r do
begin
for i := 0 to c - 1 do
app.cells(j + 1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].AsString;
DBGrid.DataSource.DataSet.Next;
end;
ResultFileName := TempFileName;
if ResultFileName = '' then
ResultFileName := '数据导出';
if FileExists(TempFileName) then
DeleteFile(TempFileName);
app.Activeworkbook.saveas(TempFileName);
app.Activeworkbook.close(false);
app.quit;
app := unassigned;
end;
procedure TForm1.Button2Click(Sender: TObject); //按钮保存
begin
try
Screen.Cursor := crHourGlass;
ExportDBGrid(DBGrid1, '导出数据'); //暂时将导出的文件名称为“导出数据”(的execl文件)
finally
Screen.Cursor := crDefault;
end;
end;
- 在delphi中,从dbgrid导出数据保存成excel文件
- 在delphi中,从dbgrid导出数据保存成excel文件
- 将DBGrid的数据导出到Excel文件保存
- 将DBGrid的数据导出到Excel文件保存
- 从Delphi中导出数据至Excel
- DBGrid数据导出到Excel表格中
- Delphi 动态导出DBGrid To Excel
- 将DBGrid的数据导出到word和excel中
- 将DBGrid的数据导出到word和excel中
- Delphi+DBGrid导出Excel文件代码 (适合没有安装excel的机器)
- 从数据库导出excel保存在客户端
- Delphi DBGrid数据导出到excel时,出现不正确的变量类型,怎么回事啊?
- DBGrid数据导出到Excel表格
- 远程从Mongodb 数据库中 导出数据为Excel 文件
- DataTable中数据导出成Excel文件
- delphi数据cds数据导出成Excel
- Delphi DBGrid 导出csv
- 从数据库中导出数据以excel格式保存到本地
- windows下获取MAC地址的三种方法
- 关于ini文件获取段名以及key名问题
- 掌间无限研发部项目历览—农科频道手机客户端
- haskell使用技巧
- 如何定义宏,返回数组的大小,并可以检查传入的参数是否为数组
- 在delphi中,从dbgrid导出数据保存成excel文件
- sql server 错误9003:LSN无效(日志扫描号无效),对数据库的修复.
- java中断和线程结束深入探讨
- haskell代码片段
- 指定的服务并未以已安装的服务存在 unable to open the service 'tomcat5
- 关于Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2)的问题
- 职责链模式
- spring依赖注入的方式
- 作者:金蝶中间件公司CTO袁红岗