以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并对话框中选定的文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62698)

--  作者:一笑
--  发布时间:2015/1/6 16:45:00
--  合并对话框中选定的文件
模仿帮助写了以下合并文件代码,可以用。但有点不方便,必须合并名叫“时间”表格,能否修改代码,可以合并对话框中任意选定的文件,谢谢

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Excel文件|*.xlsx" \'设置筛选器
dlg.Title = "选择文件"
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


--  作者:Bin
--  发布时间:2015/1/6 16:49:00
--  
同一个问题,不要反复提问http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=62697
--  作者:一笑
--  发布时间:2015/1/6 22:01:00
--  
当时网络不好 显示提交错误,于是多发了一遍 不好意思 求删除