在delphi中如何将两个excel文件中的两个sheet合并到一个excel文件中

[internetroot]

file1.xls中有sheet1，
file2.xls中有sheet2，
在delphi如何将两个文件中的sheet1，和sheet2合并到file1.xls中？

[CCC的]

这个网上好像有例子哦,自己找下

[agpxq]

没听过,但在DOS中有copy A文件+B文件 生成C文件;在DELPHI中没试过。

[spirit_felix]

利用Variant,代码摘要：

procedure TForm1.Button1Click(Sender: TObject); 
var 
  v:Variant;
begin //打开EXCEL新建文件 
  try 
    v:= CreateOleObject('Excel.Application'); 
    v.Visible := CheckBox1.Checked;//是否显示 
    v.Workbooks.Add;//新建EXCEL文件 
    v.Workbooks[1].WorkSheets[1].Name := 'DELPHI演示'; 
    // Sheet:= v.Workbooks[1].WorkSheets['DELPHI演示'];//等效下面的语句 
    Sheet:= v.Workbooks[1].WorkSheets[1]; 
    Sheet.Cells[1,1] :='DELPHI盒子'; 
    Sheet.Cells[2,1] :='http://www.delphibox.com'; 
  except 
    Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。'); 
    v.DisplayAlerts := false;//是否提示存盘 
    v.Quit;//如果出错则退出 
    exit; 
  end; 
  Application.Restore; 
  Application.BringToFront; 
end;

上面是以前找的一段代码,

可以建立三个xls文件,两个xls文件进行读取,一个xls文件进行写入结果,
最后保存第三个就可以了

[weihang1252]

跟帖学习

[jhldelphi]

[Quote=引用 4 楼 weihang1252 的回复:]
跟帖学习
[/Quote]

[internetroot]

此处以解决：http://blog.csdn.net/Internetroot/archive/2008/05/21/2467708.aspx

[shenmepowangzhan]

学习了