以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  合并多个excel文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153714)

--  作者：nxdx112 --  发布时间：2020/8/20 11:39:00 --  合并多个excel文件 每个表格的格式一样，这个代码每次只能选择合并一个， 能否 1 一次选择多个excel文件进行合并  2 每次合并只留一行空行作为间隔  Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim mg As New Merger     mg.SourcePath = dlg.FileName     mg.Format = "excel" \'指定格式     mg.SourceTableName = "基本信息表$" \'指定要合并的表     mg.DataTableName = "基本信息表" \'指定接收数据的表     mg.Merge() \'开始合 End If

--  作者：有点蓝 --  发布时间：2020/8/20 11:58:00 --   请不要发重复的问题：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=152085