Question

用VBA另存excel文件，提示错误：运行错误’1004‘，方法’SaveAs‘作用于对象’-workbook‘时失败！！

Private Sub Workbook_BeforePrint(Cancel As Boolean)
confirm = MsgBox("自动更新单据编号？", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
With Sheets("Sheet1").Range("O20")
.Value = Format(Date, "Ayyyymmdd") & Format(Val(Right(.Value, 2)) + 1, "00")
End With
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="E:\收据\" & [j21] & ".xls", FileFormat:=xlNormal
ActiveWindow.Close
End Sub
关闭文档时出现提示“隐私问题警告：此文档中包含宏、activex 控件、xml扩展包信息或web组件。它们中可能包含个人信息，这些信息无法通过设置“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”来删除。”

Answer 1

E盘 或 E:\收据\ 这个目录不存在
问题补充：

“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”
不要选中就没提示了

Answer 2

1\文件名重名？
2\Active改为this?
3\无事建个D盘目录搞哪样。存又存在E盘，E盘有不有得呢？
关于问题补充，你本来就是在用VBA，当然就有宏。

Answer 3

你在saveas 之前添加
application.displayalert=false
end sub 之前添加 application.displayalert=true