用VBA生成的EXCEL，打开报如下错误：您尝试打开的文件"1.xls"的格式与文件拓展名指定的格式不一致。。。。

全部消息为

您尝试打开的文件"1.xls"的格式与文件拓展名指定的格式不一致，打开文件前请验证文件没有损坏且来源可信，是否立即打开该文件？

解决方法

代码中，保存这句话，加后面一个条件

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\aaa.xls", _

                          FileFormat:=xlWorkbookNormal

搞定