关于EXCEL中Sheet的合并

wmsong · 发表于 2013-10-6 20:53:35

我用函数实现了同目录下EXCEL的合并，
那么怎么把最后合并的这个EXCEL文件中的所有Sheet合并到一个Sheet呢？  同时还要考虑65535最大值的问题。
求高手
这是合并多个EXCEL的过程，后面怎么写呢？
procedure TForm1.btn1Click(Sender: TObject);
var sl:TStrings;
  sModel,sTargetFile, s:string;
  ztt:Integer;
  h:Integer;
  Temp_Worksheet: _WorkSheet;
begin

sl:=TStringList.Create;
  for ztt := 0 to fst1.Count-1  do
         begin
sl.Add(ExtractFilePath(Application.ExeName) + fst1.Items[ztt]);
  sModel:= ExtractFilePath(Application.ExeName) + 'T\T.xls';
  sTargetFile:= ExtractFilePath(Application.ExeName) + 'B\B.xls';
  MergerExcel(sl,sModel, sTargetFile, s);
  fst1.Repaint;

wmsong · 发表于 2013-10-6 20:54:45

多个EXCEL合并后为“B\B.xls”这个文件
@小甲鱼
帅锅快点来指导学徒

magicyuc · 发表于 2013-10-10 21:32:56

楼主辛苦了

账号		自动登录	找回密码
密码			立即注册

[技术交流] 关于EXCEL中Sheet的合并