您尝试打开的文件的格式与文件扩展名指定的格式不一致

Select

问题现象：另存新建工作簿后，再打开，如图提示。





解决办法：选择FileFormat:=xlWorkbookNormal
测试环境：xp+sp3
补充说明：只有07和10，有此问题。

1. 
   
2. Sub test()
   
3. 
   
4.     '添加一个新的工作簿
   
5.     Workbooks.Add
   
6. 
   
7.     'xlWorkbookNormal -4143 常规工作簿
   
8.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\aaa.xls", _
   
9.                           FileFormat:=xlWorkbookNormal
   
10. 
    
11. End Sub

复制代码

lizhengshangyou

能详细说明下您的解决步骤吗？ 谢谢