VBA Excel 保存带有取消选项的工作簿

Question

我写了一段代码，让我通过在用户窗体中按下命令按钮来保存启用宏的工作簿。它生成一个文件名，一切都很完美，但是我运行通过 VBA 保存文件的问题是，如果我取消或关闭保存 window，它仍然保存文件但文件名为“FALSE”。

我的密码是：

Private Sub SaveAs_CommandButton_Click()

'Declare variables
Dim fName As Variant

'Main Function
fName = Application.GetSaveAsFilename( _
InitialFileName:="TU_" & UserForm_TVPM.OfferNumber_TextBox.Value & "_" & UserForm_TVPM.Client_TextBox.Value & ".xlsm", _
FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    
ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

谁能帮我修改一下代码，这样取消保存就能达到预期的效果（就像在任何其他软件中一样取消保存）？

Answer 1

私人订阅 SaveAs_CommandButton_Click()

'检查是否输入了所有值如果不检查 MissingHomeValues 则退出 Sub

'声明变量在 fName Save as 命令后插入一行代码以检查 fName = False 然后 exit.Below 提到的代码已添加命令。

sub
    Dim fName As Variant
    
    'Main Function
    fName = Application.GetSaveAsFilename( _
    InitialFileName:="TU_" & UserForm_TVPM.OfferNumber_TextBox.Value & "_" & UserForm_TVPM.Client_TextBox.Value & ".xlsm", _
    FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If fName = False then exit sub 
    ActiveWorkbook.SaveAs FileName:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    End Sub

VBA Excel 保存带有取消选项的工作簿

VBA Excel Save workbook with an option to cancel

excel

vba

save-as