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 请教如何处理?