以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并excel表出现错误·  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18163)

--  作者:狐狸爸爸
--  发布时间:2012/4/5 10:18:00
--  
For Each fl As String In FileSys.GetFiles(ProjectPath)
    If fl.EndsWith(".xls")
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "excel" \'指定格式
        mg.SourceTableName = "sheet1$" \'指定要合并的表
        mg.DataTableName = "nm" \'指定接收数据的表
        mg.Merge() \'开始合并
    End If
Next