用VBA建立的EXCEL文件打开时提示“扩展名与指定的格式不一致”

jackychen0 · 发表于 2009-4-8 11:37

代码如下：
Dim wsNewWorkBook As Workbook
wsNewWorkBook.SaveAs "D:\Test\" & ThisWorkbook.Sheets(1).Cells(i, 1).Value & ".xls"

文件都建立成功了，可是打开时提示这个，每打开一个就要点一下“是”才能正常打开，是什么问题啊？
未命名.JPG

多谢指教！！！

zhyzhsh · 发表于 2009-4-8 13:42

Excel 2007吗？是选项里面的一个安全性设置。

热浪2006 · 发表于 2009-4-8 13:59

让大家看看你的附件

jackychen0 · 发表于 2009-4-8 22:50

原帖由 zhyzhsh 于 2009-4-8 13:42 发表
Excel 2007吗？是选项里面的一个安全性设置。

的确是，2003打开没有提示，就是2007打开这样提示。估计是什么设置问题，我再找找，谢谢！

fdd · 发表于 2009-4-8 23:27

因为2007默认的格式是：.xlsx，而您的文件是".xls"。解决的办法是：设置文件格式。
Dim wsNewWorkBook As Workbook
wsNewWorkBook.SaveAs Filename:="D:\Test\" & ThisWorkbook.Sheets(1).Cells(i, 1).Value & ".xls",FileFormat:=xlExcel8

热浪2006 · 发表于 2009-4-9 16:01

只定义对象，但没创建对象吧？

fdd · 发表于 2009-4-9 17:15

原帖由 热浪2006 于 2009-4-9 16:01 发表
只定义对象，但没创建对象吧？

中间当然应该还有代码，只是举一个例而已。重要的是最后一句。

jackychen0 · 发表于 2009-4-10 09:27

原帖由 fdd 于 2009-4-8 23:27 发表
因为2007默认的格式是：.xlsx，而您的文件是".xls"。解决的办法是：设置文件格式。
Dim wsNewWorkBook As Workbook
wsNewWorkBook.SaveAs Filename:="D:\Test\" & ThisWorkbook.Sheets(1).Cells(i, 1).Value & ".x ...

果然是这样的，多谢了！

jackychen0 · 发表于 2009-4-10 09:28

原帖由 fdd 于 2009-4-9 17:15 发表

中间当然应该还有代码，只是举一个例而已。重要的是最后一句。

呵呵，是的只是把重要的部分贴出来，其他的内容略去了。

[ 本帖最后由 jackychen0 于 2009-8-5 15:24 编辑 ]

不肖子孙 · 发表于 2012-6-25 11:18

Sub test()
'添加一个新的工作簿
Workbooks.Add

'xlWorkbookNormal -4143 常规工作簿
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\aaa.xls",FileFormat:=xlWorkbookNormal
End Sub

我也是摘来的

		自动登录	找回密码
密码			免费注册

[求助] 用VBA建立的EXCEL文件打开时提示“扩展名与指定的格式不一致”