关于EXCEL中Sheet的合并
我用函数实现了同目录下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-1do
begin
sl.Add(ExtractFilePath(Application.ExeName) + fst1.Items);
sModel:= ExtractFilePath(Application.ExeName) + 'T\T.xls';
sTargetFile:= ExtractFilePath(Application.ExeName) + 'B\B.xls';
MergerExcel(sl,sModel, sTargetFile, s);
fst1.Repaint;
多个EXCEL合并后为“B\B.xls”这个文件
@小甲鱼
帅锅快点来指导学徒 楼主辛苦了
页:
[1]