主题：EXCEL导出打不开

请问，这个代码导出的文件，为什么打不开?

Dim dlg As new SaveFileDialog '定义一个筛选器
dlg.Filter = "Excel文件|*.xls" '保存的类型
dlg.OverwritePrompt = True '同名文件是否覆盖提示
dlg.Title = "将查询结果保存为" '对话框的标题
dlg.FileName = "过账记录" & format(Date.now,"yyyyMMddhms")  '导出的文件名字
If dlg.ShowDialog = DialogResult.OK Then '假如点击了保存
    Dim ex As new Exporter '定义一个保存
    ex.SourceTableName = "导出记录_导出记录Table1" '指定导出的文件名
    ex.FilePath = dlg.FileName '导出的文件名=对话框中的文件名
    ex.Export() '开始导数据
End If

---------------------------
WPS 表格
---------------------------
WPS表格 在试图打开文件时遇到错误。
请尝试下列方法。
·检查文档或驱动器的访问权限。
·确保有足够的内存和磁盘空间。 
·确保此文件是可以识别的格式。
(D:\Desktop\过账记录201601111453.xls)
---------------------------
确定  
---------------------------

要指定格式

ex.Format = "Excel" '导出格式为Excel