示例二
如果希望出现一个打开文件对话框,合并用户指定的文件,可以参考下面的代码:
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 文件 请问 如何修改呢