DBGridEh 导出 Excel 出错解决思路

DBGridEh 导出 Excel 出错
我用DBGridEh控件显示数据，正常显示。但导出到Excel中却发现有些比较长的内容成了空值，
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh2,filepath,True)

第二，数据中存在多语言(中文、法语、西班牙语），导出后成了乱码

[解决办法]
给个导出dbGrid到Excel的函数不知道有没有用。
Delphi(Pascal) code
function TForm1.ExportDBGrid(DBGrid: TDBGrid;SheetName: string): boolean;//直接保存，不显示EXCELvarc, r, i, j: integer;app: Olevariant;TempFileName, ResultFileName: string;begintry    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;     app.cells(1,1):='账号';     app.cells(1,2):='卡号';     app.cells(1,3):='姓名';     app.cells(1,4):='性别';     app.cells(1,5):='证件号';     app.cells(1,6):='班主任';     app.cells(1,7):='一级部门';     app.cells(1,8):='二级部门';     app.cells(1,9):='三级部门';     app.cells(1,10):='评分';     app.cells(1,11):='导入日期';     app.cells(1,12):='最后日期';    for j := 1 to r do    begin      for i := 0 to c - 1 do        app.cells(j + 1, 1 + i) := Trim(DBGrid.DataSource.DataSet.Fields[i].AsString);      DBGrid.DataSource.DataSet.Next;    end;    ResultFileName := TempFileName;    if ResultFileName = '' then      ResultFileName := '导出报表.xls';    if FileExists(TempFileName) then     DeleteFile(TempFileName);    app.Activeworkbook.saveas(TempFileName);    app.Activeworkbook.close(false);    app.quit;    app := unassigned;    showmessage('导出成功。') ;end;
[解决办法]
导出到Excel中却发现有些比较长的内容成了空值，


我也碰到过。不知道怎么解决！
[解决办法]
给你看下 Delphi 将DBGrid 数据导出到Excel表

先在USES中添加Comobj

{
功能描述：把DBGrid输出到Excel表格（支持多Sheet）
调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);
}

procedure CopyDbDataToExcel(Args: array of const);
var
 iCount, jCount: Integer;
 XLApp: Variant;
 Sheet: Variant;
 I: Integer;
begin
 Screen.Cursor := crHourGlass;
 if not VarIsEmpty(XLApp) then
 begin
   XLApp.DisplayAlerts := False;
   XLApp.Quit;
   VarClear(XLApp);
 end;

 try
   XLApp := CreateOleObject('Excel.Application');
 except
   Screen.Cursor := crDefault;
   Exit;
 end;

 XLApp.WorkBooks.Add;
 XLApp.SheetsInNewWorkbook := High(Args) + 1;

 for I := Low(Args) to High(Args) do
 begin
   XLApp.WorkBooks[1].WorkSheets[I+1].Name := TDBGrid(Args[I].VObject).Name;
   Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrid(Args[I].VObject).Name];

   if not TDBGrid(Args[I].VObject).DataSource.DataSet.Active then
   begin
     Screen.Cursor := crDefault;
     Exit;
   end;

   TDBGrid(Args[I].VObject).DataSource.DataSet.first;
   for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
     Sheet.Cells[1, iCount + 1] :=
   TDBGrid(Args[I].VObject).Columns.Items[iCount].Title.Caption;

   jCount := 1;
   while not TDBGrid(Args[I].VObject).DataSource.DataSet.Eof do
   begin
     for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
       Sheet.Cells[jCount + 1, iCount + 1] :=
     TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString; 
 

     Inc(jCount);
     TDBGrid(Args[I].VObject).DataSource.DataSet.Next;
   end;
   XlApp.Visible := True;
 end;
 Screen.Cursor := crDefault;
end;

[解决办法]
这是个bug，我也遇到过
[解决办法]
如果真有bug，那就从数据源导出吧。
[解决办法]
var
 ExcelApplication1:TExcelApplication;
 ExcelWorksheet1:TExcelWorksheet;
 ExcelWorkbook1:TExcelWorkbook;
 i,j:integer;
begin
 try
   ExcelApplication1:=TExcelApplication.Create(Application);
   ExcelWorksheet1:=TExcelWorksheet.Create(Application);  
   ExcelWorkbook1:=TExcelWorkbook.Create(Application);
   ExcelApplication1.Connect;
   ExcelApplication1.Visible[0]:=True;
 except
   Application.Messagebox('Excel没有安装!','Hello',MB_ICONERROR+mb_Ok);
   Abort;
 end;
 try
   ExcelApplication1.Workbooks.Add(EmptyParam,0);
   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
   ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1]as _worksheet);
   DBGridEh1.DataSource.DataSet.First;
   for j:=0 to DBGridEh1.DataSource.DataSet.Fields.Count-2 do
   begin
     ExcelWorksheet1.Cells.item[3,j+1]:=DBGridEh1.Columns[j].Title.Caption;//导出DBGridEh1中显示的字段标题
     //ExcelWorksheet1.Cells.item[3,j+1]:=DBGridEh1.DataSource.DataSet.Fields[j].DisplayLabel;//导出数据库中字段名
     ExcelWorksheet1.Cells.item[3,j+1].font.size:='12';
   end;
     for i:=4 to DBGridEh1.DataSource.DataSet.RecordCount + 3 do  //从excel的第4行到最后
       begin
       for j:= 1 to DBGridEh1.DataSource.DataSet.Fields.Count - 1 do  //从DBGridEh1的第1列到最后
         begin
         //ExcelWorksheet1.Cells.item[i,j+1]:=DBGridEh1.DataSource.DataSet.Fields[j].Asstring;
         //ExcelWorksheet1.Cells.item[i,j+1].font.size:='10';

         ExcelWorksheet1.Range[ExcelWorksheet1.Cells.item[1,2], ExcelWorksheet1.Cells.item[i,2]].NumberFormatLocal:='@';//第二列设为文本格式

         ExcelWorksheet1.Cells.item[i,j]:=DBGridEh1.DataSource.DataSet.Fields[j-1].Asstring;
         ExcelWorksheet1.Cells.item[i,j].font.size:='10';
         end;
         DBGridEh1.DataSource.DataSet.Next;
       end;
         ExcelWorksheet1.Columns.AutoFit;  
         ExcelWorksheet1.Cells.item[1,2]:='单证导出'+Formatdatetime('YYYYmmdd',Now); //DBGridEh1.Columns[0].FieldName; //在excel中第一行显示标题  
         ExcelWorksheet1.Cells.Item[1,2].font.size:='14';
   finally
   ExcelWorkSheet1.Disconnect;
   ExcelWorkBook1.Disconnect;
   ExcelApplication1.Disconnect;
 end;



这是以前做导出Excel时用的，不是我写的，从网上找的一个，就是一条条的从DBGrid里读取数据，然后一条条的保存，如果数据多的话得花很长时间去导出，楼主不嫌麻烦可以试试看
DBGridEh 导出 Excel 出错解决思路

热点推荐
