主题：Exporter导出的excel打不开

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

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

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

    Dim ex As New Exporter

    ex.SourceTableName = "bhd1" '指定导出表

    ex.filepath = dlg.FileName  '指定目标文件

    ex.Export() '开始导出

    MessageBox.Show("导出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

提示以下错误（在单独安装excel2003的电脑上也不行）

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