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

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