Dim dlg As New OpenFileDialog    \'定义一个新的OpenFileDialog

dlg.Filter = "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb|Excel2007文件|*.xlsx"   \'设置筛选器

dlg.MultiSelect = True \'允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

    For Each fl As String In dlg.FileNames

        Dim mg As New Merger

        mg.Format = "excel" \'指定格式

        mg.SourcePath = fl

        mg.SourceTableName =  "合作单位表$"  \'指定要合并的表

        mg.DataTableName = "合作单位表" \'指定接收数据的表

        mg.Merge()  \'开始合并

    Next

End If

代码如上，mg.Format = "excel" 则可以导入Excel文件，mg.Format = "excel2007" 则可以导入Excel2007文件，如何设置代码，可以导入多种类型文件，求助，谢谢！