主题：[求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中，一直不成功。请问程序该怎么写

现在你执行报错？

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.Format = "Excel"
        mg.SourcePath = fl
        mg.SourceTableName = "项目策划成绩$"
        mg.DataTableName = "项目策划成绩"
        mg.Merge()
    Next
End If