以文本方式查看主题

-  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=81281)
--  作者：celchentao
--  发布时间：2016/2/23 16:16:00
--  合并EXCEL的相关问题

示例二

如果希望出现一个打开文件对话框，合并用户指定的文件，可以参考下面的代码：

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "订单"
    mg.DataTableName = "订单"
    mg.Merge()
End If


想用这个实例这样 合并EXCEL 文件  请问 如何修改呢
--  作者：大红袍
--  发布时间：2016/2/23 16:17:00
--  

 

[此贴子已经被作者于2016/2/23 16:17:33编辑过]
--  作者：大红袍
--  发布时间：2016/2/23 16:18:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel"
    mg.SourceTableName = "sheet1$"
    mg.DataTableName = "订单"
    mg.Merge()
End If