把DBGRID数据直接导入EXCEL中的过程,不涉及ADOQUERY,DATAsource

最新推荐文章于 2017-09-06 16:03:00 发布

原创最新推荐文章于 2017-09-06 16:03:00 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #integer #测试 #工作

本文介绍了一种使用Delphi将数据库中的数据导出到Excel的方法。具体步骤包括：创建Excel应用程序对象，添加新的工作簿，设置工作表名称，并从数据库网格中逐行复制数据到Excel指定单元格。

要uses ComObj;

private
procedure CopyDbDataToExcel(Target: TDbgrid); // 定义一个过程

procedure Ttjzb_Form.CopyDbDataToExcel(Target: TDbgrid);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
    XLApp.DisplayAlerts := False;
    XLApp.Quit;
    VarClear(XLApp);
end;
//通过ole创建Excel对象
try
    XLApp := CreateOleObject('Excel.Application');
except
    Screen.Cursor := crDefault;
    Exit;
end;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name := '测试工作薄';
Sheet := XLApp.Workbooks[1].WorkSheets['测试工作薄'];

if not Target.DataSource.DataSet.Active then
begin
     Screen.Cursor := crDefault;
     Exit;
end;
Target.DataSource.DataSet.first;

for iCount := 0 to Target.Columns.Count - 1 do
begin
     Sheet.cells[1, iCount + 1] := Target.Columns.Items[iCount].Title.Caption;
end;
jCount := 1;
while not Target.DataSource.DataSet.Eof do
begin
     for iCount := 0 to Target.Columns.Count - 1 do
     begin
       Sheet.cells[jCount + 1, iCount + 1] := Target.Columns.Items[iCount].Field.AsString;
     end;
     Inc(jCount);
     Target.DataSource.DataSet.Next;
end;
XlApp.Visible := True;
Screen.Cursor := crDefault;
end;