Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Execl文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim idx As Integer = 0
Dim names() As String = {"表A","表B"}
If names.Length <> dlg.FileNames.Length
msgbox("文件数量和表格数量不一致")
Else
For Each file As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = file '指定数据文件
mg.SourceTableName = "report$" '指定要导入的表
mg.DataTableName=names(idx)
mg.Format ="Excel"
mg.FieldMaps.Add("F6","编码")
mg.FieldMaps.Add("F9","数量")
mg.FieldMaps.Add("F10","类型")
mg.Filter = "[F6] like '0%' " '指定合并条件
mg.Merge()
idx += 1
Next
End If
End If
加好友 
发短信
Post By：2016/11/24 17:08:00 [显示全部帖子]
