主题：导入错误

用以下代码导入一个Excel文件，出现以下截图的错误，为什么？怎么解决？

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "PartMaterial$" '指定要导入的表
    ip.NewTableName ="主料明细" '导入后的表名
    ip.Import()
End If

此主题相关图片如下：qq截图20161216215802.jpg