以文本方式查看主题 - 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 -- 当时网络不好 显示提交错误,于是多发了一遍 不好意思 求删除 |