以文本方式查看主题 -  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