求救！我想把dbgrid的数据直接导入到的已有EXCEL中

Question

EXCEL是公司有固定的格式，而且有一部分内容是已经填好的。想直接把dbgrid的数据导入到这个EXCEL对应的项目中，水平比较差，整了好几天都没有弄出来！

Answer 1

这个应该不好弄吧。直接往EXCEL里面导就简单多了。。
以下是直接导入代码：
//use comobj   ,要放一个savedialog
procedure TRemind_F.Btn1Click(Sender: TObject);
var
    excelApp,WorkBook:olevariant;
    xlsFileName:string;
    i,j:integer;
begin
  if  dlgSave1.Execute  then
  begin
    xlsFileName:=dlgSave1.FileName;
  end else
  begin
    Exit;
  end;  try
    excelApp:=CreateOleObject('Excel.Application');
    WorkBook:=CreateOleObject('Excel.Sheet');
  except
    Application.MessageBox('系统没有安装Microsoft   Excel','Microsoft   Excel',MB_OK+MB_ICONWarning);
    Exit;
  end;  try
    //列名，字段名
    WorkBook:=excelApp.workbooks.Add;
    for   i:=0   to   dbg1.Columns.Count-1 do
    begin
      excelApp.Cells(1,i+1):=dbg1.Columns[i].Title.Caption;
    end;    dbg1.DataSource.DataSet.First;
    j:=2;
    while not dbg1.DataSource.DataSet.Eof do
    begin
      for   i:=0   to   dbg1.Columns.Count-1   do
      begin
        excelApp.Cells(j,i+1):=dbg1.Fields[i].Value;
      end;
      dbg1.DataSource.DataSet.Next;
      inc(j);
    end;    WorkBook.SaveAS(xlsFileName);
    WorkBook.close;
  except
    ShowMessage('文件导出失败！');
    Exit;
  end;
  Application.MessageBox('保存成功!','恭喜',MB_OK   +   MB_ICONINFORMATION);
end;

Answer 2

全面控制 Excel 
首先创建 Excel 对象，使用ComObj: 
var ExcelID: Variant; 
ExcelID := CreateOleObject( 'Excel.Application' ); 
1) 显示当前窗口： 
ExcelID.Visible := True; 
2) 更改 Excel 标题栏： 
ExcelID.Caption := '应用程序调用 Microsoft Excel'; 
3) 添加新工作簿： 
ExcelID.WorkBooks.Add; 
4) 打开已存在的工作簿： 
ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 
5) 设置第2个工作表为活动工作表： 
ExcelID.WorkSheets[2].Activate;   
或 
ExcelID.WorksSheets[ 'Sheet2' ].Activate; 
6) 给单元格赋值： 
ExcelID.Cells[1,4].Value := '第一行第四列'; 
7) 设置指定列的宽度（单位：字符个数），以第一列为例： 
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5; 
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 
9) 在第8行之前插入分页符： 
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1; 
10) 在第8列之前删除分页符： 
ExcelID.ActiveSheet.Columns[4].PageBreak := 0; 
11) 指定边框线宽度： 
ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 
1-左    2-右   3-顶    4-底   5-斜( \ )     6-斜( / ) 
12) 清除第一行第四列单元格公式： 
ExcelID.ActiveSheet.Cells[1,4].ClearContents; 
13) 设置第一行字体属性： 
ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书'; 
ExcelID.ActiveSheet.Rows[1].Font.Color  := clBlue; 
ExcelID.ActiveSheet.Rows[1].Font.Bold   := True; 
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True; 
14) 进行页面设置： 
a.页眉： 
   ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示'; 
b.页脚： 
   ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页'; 
c.页眉到顶端边距2cm： 
   ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; 
d.页脚到底端边距3cm： 
   ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; 
e.顶边距2cm： 
   ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035; 
f.底边距2cm： 
   ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035; 
g.左边距2cm： 
   ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035; 
h.右边距2cm： 
   ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035; 
i.页面水平居中： 
   ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; 
j.页面垂直居中： 
   ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035; 
k.打印单元格网线： 
   ExcelID.ActiveSheet.PageSetup.PrintGridLines := True; 
15) 拷贝操作： 
a.拷贝整个工作表： 
   ExcelID.ActiveSheet.Used.Range.Copy; 
b.拷贝指定区域： 
   ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy; 
c.从A1位置开始粘贴： 
   ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial; 
d.从文件尾部开始粘贴： 
   ExcelID.ActiveSheet.Range.PasteSpecial; 
16) 插入一行或一列： 
a. ExcelID.ActiveSheet.Rows[2].Insert; 
b. ExcelID.ActiveSheet.Columns[1].Insert; 
17) 删除一行或一列： 
a. ExcelID.ActiveSheet.Rows[2].Delete; 
b. ExcelID.ActiveSheet.Columns[1].Delete; 
18) 打印预览工作表： 
ExcelID.ActiveSheet.PrintPreview; 
19) 打印输出工作表： 
ExcelID.ActiveSheet.PrintOut; 
20) 工作表保存： 
if not ExcelID.ActiveWorkBook.Saved then 
  ExcelID.ActiveSheet.PrintPreview; 
21) 工作表另存为： 
ExcelID.SaveAs( 'C:\Excel\Demo1.xls' ); 
22) 放弃存盘： 
ExcelID.ActiveWorkBook.Saved := True; 
23) 关闭工作簿： 
ExcelID.WorkBooks.Close; 
24) 退出 Excel： 
ExcelID.Quit;

Answer 3

可以用用DBGIRDEH来试试,那个导出EXCEL比较容易var   ExpClass:TDBGridEhExportClass;   
          Ext:String;   
  begin   
          SaveDialog1.FileName   :=   '';   
          if   SaveDialog1.Execute   then   
          begin   
              case   SaveDialog1.FilterIndex   of   
                  1:   begin   ExpClass   :=   TDBGridEhExportAsText;   Ext   :=   'txt';   end;   
                  2:   begin   ExpClass   :=   TDBGridEhExportAsCSV;   Ext   :=   'csv';   end;   
                  3:   begin   ExpClass   :=   TDBGridEhExportAsHTML;   Ext   :=   'htm';   end;   
                  4:   begin   ExpClass   :=   TDBGridEhExportAsRTF;   Ext   :=   'rtf';   end;   
                  5:   begin   ExpClass   :=   TDBGridEhExportAsXLS;   Ext   :=   'xls';   end;   
              else   
                  ExpClass   :=   nil;   Ext   :=   '';   
              end;   
              if   ExpClass   <>   nil   then   
              begin   
                  if   UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))   <>   
                        UpperCase(Ext)   then   
                      SaveDialog1.FileName   :=   SaveDialog1.FileName   +   '.'   +   Ext;   
                  SaveDBGridEhToExportFile(ExpClass,dbgrideh1,   
                            SaveDialog1.FileName,true);   
              end;   
          end;
procedure TForm4.SpeedButton9Click(Sender: TObject);
var
  ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
   SaveDialog1.FileName:='供应商信息表.xls';    if SaveDialog1.Execute then
     begin
       ExpClass := TDBGridEhExportAsXLS;
       Ext := 'xls';
     end
      else
      begin
        ExpClass := nil;
        Ext :='';
      end;    if ExpClass <> nil then
    begin
      if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))<>UpperCase(Ext) then
      SaveDialog1.FileName:=SaveDialog1.FileName + '.' + Ext;
      SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
      showmessage('数据导出成功！');
    end;

Answer 4

可以用用DBGIRDEH来试试,那个导出EXCEL比较容易var   ExpClass:TDBGridEhExportClass;   
          Ext:String;   
  begin   
          SaveDialog1.FileName   :=   '';   
          if   SaveDialog1.Execute   then   
          begin   
              case   SaveDialog1.FilterIndex   of   
                  1:   begin   ExpClass   :=   TDBGridEhExportAsText;   Ext   :=   'txt';   end;   
                  2:   begin   ExpClass   :=   TDBGridEhExportAsCSV;   Ext   :=   'csv';   end;   
                  3:   begin   ExpClass   :=   TDBGridEhExportAsHTML;   Ext   :=   'htm';   end;   
                  4:   begin   ExpClass   :=   TDBGridEhExportAsRTF;   Ext   :=   'rtf';   end;   
                  5:   begin   ExpClass   :=   TDBGridEhExportAsXLS;   Ext   :=   'xls';   end;   
              else   
                  ExpClass   :=   nil;   Ext   :=   '';   
              end;   
              if   ExpClass   <>   nil   then   
              begin   
                  if   UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))   <>   
                        UpperCase(Ext)   then   
                      SaveDialog1.FileName   :=   SaveDialog1.FileName   +   '.'   +   Ext;   
                  SaveDBGridEhToExportFile(ExpClass,dbgrideh1,   
                            SaveDialog1.FileName,true);   
              end;   
          end;
procedure TForm4.SpeedButton9Click(Sender: TObject);
var
  ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
   SaveDialog1.FileName:='供应商信息表.xls';    if SaveDialog1.Execute then
     begin
       ExpClass := TDBGridEhExportAsXLS;
       Ext := 'xls';
     end
      else
      begin
        ExpClass := nil;
        Ext :='';
      end;    if ExpClass <> nil then
    begin
      if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))<>UpperCase(Ext) then
      SaveDialog1.FileName:=SaveDialog1.FileName + '.' + Ext;
      SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
      showmessage('数据导出成功！');
    end;

Answer 5

谢谢各位，可是问题还是没有解决，我自己可以实现导出到一个新的EXCEL中，可是现在导入到一个已经建好的表格中！

Answer 6

知道怎么操作Excel了，你把代码变通变通就可以了。

Answer 7

说下思路,代码就不写了
1.首先打开EXCEL模板 ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 
2.如果模板是固定字段内容的话,如单元格1为：姓名 单元格2就设置标志为: &[姓名] 可以使用替换函数(这个录制宏看下函数)把&[姓名]替换
3.如果要追加数据的话
给单元格赋值,循环单元格
i:=ExcelApp.ActiveSheet.UsedRange.Rows.Count;
j:=ExcelApp.ActiveSheet.UsedRange.Columns.Count;
ExcelID.Cells[i,j].Value := '张三; 其实操作代码都是参考2楼,以及录制宏看的代码

Answer 8

EXCEL导出的时候将你们公司固有的文件格式设置进去导出不就行了么