主题：导入EXCEL表格，语句怎么改

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

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

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim ip As New Importer

    ip.Format = "excel"

    ip.SourcePath = dlg.FileName '指定数据文件

    ip.SourceTableName = "物料信息$" '指定要导入的表

    ip.NewTableName ="物料信息" '导入后的表名

    ip.Import()

End If