DBGridEh 导出 Excel 出错

Question

我用DBGridEh控件显示数据，正常显示。但导出到Excel中却发现有些比较长的内容成了空值，
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh2,filepath,True)第二，数据中存在多语言(中文、法语、西班牙语），导出后成了乱码

Answer 1

数据库是 ACCESS，导出与数据库有关系吗？

Answer 2

给个导出dbGrid到Excel的函数不知道有没有用。function TForm1.ExportDBGrid(DBGrid: TDBGrid;SheetName: string): boolean;//直接保存，不显示EXCEL
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;
     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;

Answer 3

导出到Excel中却发现有些比较长的内容成了空值，
我也碰到过。不知道怎么解决！

Answer 4

给你看下 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;

Answer 5

如果真有bug，那就从数据源导出吧。

Answer 6

  try
    //添加你自己的代码
  finally
    XLApp.Quit;
  end;
如果不这样的话，XLApp可能释放不了，影响下一次调用

Answer 7

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里读取数据，然后一条条的保存，如果数据多的话得花很长时间去导出，楼主不嫌麻烦可以试试看