DBGridEh显示的数据导出到EXCEL？

老杨_sz 2008-06-23 04:13:01

DBGridEh显示的数据通过BTN按钮导出到EXCEL，点击BTN时显示保存位置及输入文件名保存。

具体怎样实现？谢谢

...全文

326 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

Dhammacakkhu 2008-06-27

打赏
举报



uses

  DBGridEhImpExp;



function DGExportExcel(DBGridEh: TDBGridEh): boolean;

var

  SD:TSaveDialog;

begin

  try

    Result := False;

    SD := TSaveDialog.Create(Application);

    SD.Filter := '*.xls(Excel 文档)|*.xls';

    if SD.Execute then

    begin

      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh, SD.FileName + '.xls', true);

      Result := true;

    end;

  finally

    SD.Free;

  end;

end;

kampan 2008-06-25

打赏
举报

之前也做过，大概是这样：procedure TForm1.Button1Click(Sender: TObject);
var
i,Cel,Row: Integer;
EParam : OleVariant;
begin
try
self.ExcelApplication1.Connect;
except
ShowMessage('´ò¿ªExcelÊ§°Ü');
exit;
end;
self.ExcelApplication1.Visible[0] := true;
self.ExcelApplication1.Caption := 'µ¼ÈëexcelÊÔÑé';
ExcelWorkbook1.ConnectTo(ExcelApplication1.
Workbooks.Add(EmptyParam,0));

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);//ExcelWorkbook1ÓëEexcelapplication1½¨Á¢Á¬½Ó
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1ÓëExcelworkbook1½¨Á¢Á¬½Ó
self.ADOQuery1.Close;
self.ADOQuery1.Open;
self.ExcelWorksheet1.Cells.Item[1,1] := 'ÐÕÃû';
self.ExcelWorksheet1.Cells.Item[1,2] := 'ÄêÁä';
self.ExcelWorksheet1.Cells.Item[1,3] := 'ËµÃ÷';
self.ADOQuery1.First;
row := 2;
while not self.ADOQuery1.Eof do
begin
Cel := 1;
for i := 1 to self.ADOQuery1.RecordCount do
begin
self.ExcelWorksheet1.Cells.Item[row,Cel] := self.ADOQuery1.Fields[i-1].AsString;
Cel := Cel + 1;
end;
self.ADOQuery1.Next;
Row := Row + 1;
end;

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
showmessage('Êý¾Ý×ª»»Íê±Ï£¡');
end;

kampan 2008-06-25

打赏
举报

受教了…………

studyrandy 2008-06-25

打赏
举报

学习了，以前只搞懂怎么导出的，另外的保存什么的是手动保存的，有机会学习了。

tim_zhang 2008-06-24

打赏
举报

Import/Export TDBGridEh data to/from various formats.
EhLib have set of functions to export data from DBGridEh to Text, Csv, HTML, RTF, XLS and internal formats. It can write data to stream (TStream object) or to file.
Example
Pascal: SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);
C++: SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:\\temp\\file1.txt",false);
EhLib have set of functions to import data from Text and internal formats to DBGridEh's dataset. It can read data to stream (TStream object) or from file.

pengxuan 2008-06-24

打赏
举报



procedure TF_main.ToExcel(DBGridEh:TDBGridEh);

begin

  if SaveDialog_toExcel.Execute then

     SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh,SaveDialog_toExcel.FileName,True);

end;

shuihan20e 2008-06-23

打赏
举报

EXCEL可以做数据库，可以通过ADO来导出来，和ACCESS,SQLSERVER没有区别

也可通过OLE或者其他方式来导出

RoverX 2008-06-23

打赏
举报



Import/Export TDBGridEh data to/from various formats.

EhLib have set of functions to export data from DBGridEh to Text, Csv, HTML, RTF, XLS and internal formats. It can write data to stream (TStream object) or to file. 

Example

Pascal: SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);

C++: SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:\\temp\\file1.txt",false);

EhLib have set of functions to import data from Text and internal formats to DBGridEh's dataset. It can read data to stream (TStream object) or from file.

GDTOPONE 2008-06-23

打赏
举报

从网上摘来一段代码,修改了一下,你看是否合用:



uses ComObj;{引用单元}

相关过程:



procedure CopyDbDataToExcel(Args: array of const;F:string);

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 := TDBGridEh(Args[I].VObject).Name;

    Sheet := XLApp.Workbooks[1].WorkSheets[TDBGridEh(Args[I].VObject).Name];



    if not TDBGridEh(Args[I].VObject).DataSource.DataSet.Active then

    begin

      Screen.Cursor := crDefault;

      Exit;

    end;

    TDBGridEh(Args[I].VObject).DataSource.DataSet.DisableControls;



     TDBGridEh(Args[I].VObject).DataSource.DataSet.first;

    for iCount := 0 to TDBGridEh(Args[I].VObject).Columns.Count - 1 do

      Sheet.Cells[1, iCount + 1] :=

    TDBGridEh(Args[I].VObject).Columns.Items[iCount].Title.Caption;



    jCount := 1;

    while not TDBGridEh(Args[I].VObject).DataSource.DataSet.Eof do

    begin

      for iCount := 0 to TDBGridEh(Args[I].VObject).Columns.Count - 1 do

        Sheet.Cells[jCount + 1, iCount + 1] :=

      TDBGridEh(Args[I].VObject).Columns.Items[iCount].Field.AsString;



      Inc(jCount);

      TDBGridEh(Args[I].VObject).DataSource.DataSet.Next;

    end;

    XlApp.DisplayAlerts := False;

    XlApp.activeworkbook.SaveAs(F);

    XlApp.activeworkbook.close;

    XlApp.quit;

    TDBGridEh(Args[I].VObject).DataSource.DataSet.EnableControls;

  end;

  Screen.Cursor := crDefault;

end;

调用:



procedure TForm1.Button1Click(Sender: TObject);

begin

 if SaveDialog1.Execute then

  CopyDbDataToExcel([DBGridEh1],SaveDialog1.FileName);

end;

gyk120 2008-06-23

打赏
举报

http://download.csdn.net/source/137084
到这里看看吧

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;

直接导出带进度条~~~~~~~~~~~，支持多表头

delphi dbgrid导出excel单元文件绝对好用调用方式 var GridtoExcel: TDBGridEhToExcel; begin GridtoExcel := TDBGridEhToExcel.Create(nil); try GridtoExcel.DBGridEh := DBGridEh1; GridtoExcel.FileName := FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime)+ '--------'+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DateTime) +'退款订单导出'; GridtoExcel.ShowProgress := True; GridtoExcel.ExportToExcel; finally GridtoExcel.Free; end; end;

绝对原创的DBGridEh导出到Excel程序单元,Delphi7环境下可用，其它版本是否可用就不清楚了。主要功能:导出DBGridEh表格数据到Excel(废话！) 特色功能:1.支持DBGridEh多行标题(最多三层)，DBGridEh中采取了这种标题，则导出的Excel同样是这种标题，不走样。 2.支持页脚统计栏导出(就在一个过程中实现,不另写代码) 3.忠实反应字段的数据类型,防止Excel自作多情的改变数据类型，如股票代码000735，导出后为文本'000735',不会自动转化为735；身份证号码也不会转换科学计数法格式，减号不会识别为日期间隔符，等号也不会识别为公式的前导符号。

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章