主题：[求助]如何设置可导入多种类型文件

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文件，如何设置代码，可以导入多种类型文件，求助，谢谢！