运行时错误 1004 文档未使用 Vba Excel 2016 保存

Question

当我想在桌面上的文件夹中保存 Excel 工作簿时，我使用 vba 获得了 Runtime error 1004 document not saved。以下是我的代码的详细信息：

Private Sub Save_Click()

'Popup the Window "Save As"

Application.DisplayAlerts = False


MsgBox "Do not change the default file name proposed on the next step please !"

Dim fName As Variant

Dim DName As String  ' Variable storing name of excel workbook which has to be saved

DName = UserForm.CustomerApplication.Value & " - " & UserForm.L2GType.Value

& " - " & UserForm.Title.Value & " - " & UserForm.Country.Value & "(" & 

Year(Date) & ")"

fName = Application.GetSaveAsFilename(InitialFileName:=DName, _

FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Save As")

If fName = False Then

 Exit Sub

ActiveWorkbook.SaveAs filename:=fName, FileFormat:=51

ActiveWorkbook.Close

End Sub

Answer 1

我认为您的代码底部缺少“End If”。 'If fName = False Then...' 部分。试试下面的

Private Sub Save_Click()

'Popup the Window "Save As"

Application.DisplayAlerts = False


MsgBox "Do not change the default file name proposed on the next step please !"

Dim fName As Variant

Dim DName As String  ' Variable storing name of excel workbook which has to be saved

DName = UserForm.CustomerApplication.Value & " - " & UserForm.L2GType.Value

& " - " & UserForm.Title.Value & " - " & UserForm.Country.Value & "(" & 

Year(Date) & ")"

fName = Application.GetSaveAsFilename(InitialFileName:=DName, _

FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Save As")

If fName = False Then

 Exit Sub

End If

ActiveWorkbook.SaveAs filename:=fName, FileFormat:=51

ActiveWorkbook.Close

End Sub

Answer 2

fName 是一个String，因此您不能将它与False 进行比较，而是与"False" 进行比较。

尝试将代码的最后一部分替换为以下行：

fName = Application.GetSaveAsFilename(InitialFileName:=DName, _
        fileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Save As")

If fName <> "False" Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=51
Else
    MsgBox "No File was selected !"
    Exit Sub
End If

Application.DisplayAlerts = True

注意：使用FileFormat:=51，表示xlOpenXMLWorkbook，一种.xlsx 格式（没有宏）。

然而因为你想使用SaveAs命令和包含此代码的ThisWorkbook，你会得到一个提示屏幕，询问你是否要将其保存为.xslx，这意味着您的所有代码都将丢失。

您可以选择FileFormat:=52，表示xlOpenXMLWorkbookMacroEnabled，一种.xlsm 格式（带有宏）。