If MainTable.Name = "分解数据二" Then
Dim dlg As New OpenFileDialog
dlg.Filter = "excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
mg.SourceTableName = "液相表2$"
mg.DataTableName = "分解数据二"
mg.Merge()
Next
End If
End If
此主题相关图片如下:qq图片20140911084234.jpg

请教如何处理?