[已解决]请教一个问题，如下面一段代码，问题出在什么地方呢？

hyg7501

Sub 生成文件()
Dim Str01$
Dim WJ As Workbook
Str01 = Worksheets(1).Name
Worksheets(1).Copy
Set WJ = ActiveWorkbook
WJ.Sheets(1).Range("a2") = "测试成功"

Application.DisplayAlerts = False

WJ.SaveAs ThisWorkbook.Path & "\" & Str01 & ".xls"

Application.DisplayAlerts = True

WJ.Close
Set WJ = Nothing

End Sub

生成文件后，再到文件夹去打开生成的文件，却出来下面如果的提示！请问如何解决？

最佳答案

月排行榜 / 总排行榜

Zipall

2012-5-9 18:35

高版本的excel(07/10)在saveas时,如不设置文件格式,则默认是xlsx格式.

看saveas帮助,设置必要的参数使文件保存为xls格式.
例如10中
wj.saveas ThisWorkbook.Path & "\" & Str01 & ".xls",56

跳转到最佳答案楼层

hrpotter

是不是用的07或10？

hyg7501

对啊，对啊，这个忘记声明了，是用的2010的64位版的Excel

zjdh

我这运行正常！
xp + 2003

Zipall

高版本的excel(07/10)在saveas时,如不设置文件格式,则默认是xlsx格式.

看saveas帮助,设置必要的参数使文件保存为xls格式.
例如10中
wj.saveas ThisWorkbook.Path & "\" & Str01 & ".xls",56

zjdh

你把
WJ.SaveAs ThisWorkbook.Path & "\" & Str01 & ".xls"
改成
WJ.SaveAs ThisWorkbook.Path & "\" & Str01 & ".xlsx"
试试

hrpotter

用10的话，保存为.xls会出现这个问题，你可以直接保存为.xlsx

07缘来是你17

学习学习                             

hyg7501

Zipall 发表于 2012-5-9 18:35
高版本的excel(07/10)在saveas时,如不设置文件格式,则默认是xlsx格式.

看saveas帮助,设置必要的参数使文 ...

非常感谢，确实解决了那个提示框的问题了！