DBGridEh数据输出为电子表格文件问题.

Question

需要将dbgrid1的数据输入到电子表格文件的sheet1中，而将dbgrid2的数据输入到电子表格文件的sheet2中，如何实现呢，另外如何读取电子表格文件的sheet1和sheet2的数据分别进dbgrid1和dbgrid2中呢？

Answer 1

var  
  Sht:Variant
begin
  App:=CreateOleObject('excel.application');
  Application.ProcessMessages;
  App.Workbooks.Add
  sht:=App.Workbooks[1].WorkSheets[1];///
end;

Answer 2

我是将dbgrid的数据直接输出到电子表格文件中，而非创建一个execl文件并逐行往里面写数据。

Answer 3

uses DBGridEhImpExp;
SaveDialog1.Filter:='Excel文件 (*.XLS)';
      SaveDialog1.DefaultExt:='XLS';
      if SaveDialog1.Execute then
      begin
        for i:=2 to DBGridEh1.RowCount do
        SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,SaveDialog1.FileName,True);
        end;

Answer 4

to bobocn：谢谢，你这个用法我知道，但如何将数据导入到已存在的execl表中的sheet2呢？

Answer 5

http://community.csdn.net/Expert/topic/3083/3083514.xml?temp=.2445337这是我给别人写的,你看看.

Answer 6

在你的窗体上首先得有EXCELBOOK,EXCELSHEET,EXCELAPPLICATION这个控件.这些控件在SERVERS里面,可以自己添加,procedure Tzhuyee.EncartaButton4Click(Sender: TObject);
var
        i,row,column:integer;
begin
   with dm do
    begin
        Try
                ExcelApplication1.Connect;
        Except
                MessageDlg('Excel 可能没有安装',mtError, [mbOk], 0);
                Abort;
        End;
        ExcelApplication1.Visible[0]:=True;
        ExcelApplication1.Caption:='Excel Application';
        ExcelApplication1.Workbooks.Add(Null,0);
        ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
        ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
        ADOTable1.Open;
        row:=1;
        While Not(ADOTable1.Eof) do
        begin
                column:=1;
                for i:=1 to ADOTable1.FieldCount do
                begin
                ExcelWorksheet1.Cells.Item[row,column]:=ADOTable1.fields[i-1].AsString;
                column:=column+1;
                end;
        ADOTable1.Next;
        row:=row+1;
        end;
   end;
end;

Answer 7

我是希望使用类似SaveDBGridEhToExportFile的函数将数据都导入到Excel文件中。而不需要数据一条一条的导入。

Answer 8

Up.
I want to know it,also.