xlDialogSaveAs - 如果选择“取消”，则结束所有代码

Question

编辑：我自己想通了。我觉得很傻，但是用“End”替换“Exit Sub”效果很好。

背景：我有一个 Sub，它使用“调用”函数在一个 Sub 中运行多个 sub（参见下面的代码 #1）。

Option Explicit

Sub MIUL_Run_All()

Dim StartTime As Double
Dim SecondsElapsed As String

'Remember time when macro starts
  StartTime = Timer

Call OptimizeCode_Begin

Call Format_MIUL
Call Custom_Sort_MIUL
Call Insert_Process_List
Call Format_Process_List

Call OptimizeCode_End

'Determine how many seconds code took to run
  SecondsElapsed = Format((Timer - StartTime) / 86400, "ss")

'Notify user in seconds
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation

End Sub

我调用的第一个代码“Format_MIUL”提示用户使用以下代码行保存文件（参见下面的代码 #2）。此代码有效，但问题是如果用户按下“取消”按钮，则在主子程序（上面的代码#1）中调用的其余代码将继续运行。如果用户按下取消按钮，我希望所有代码都停止。我似乎无法弄清楚如何做到这一点。

'Save file as .xlsm
MsgBox "       Save as Excel Workbook (.xlsx)!"
Dim userResponse As Boolean

On Error Resume Next
userResponse = Application.Dialogs(xlDialogSaveAs).Show(, 51)
On Error GoTo 0
If userResponse = False Then
Exit Sub
Else
End If

非常感谢任何帮助。

Answer 1

Call 关键字已废弃 20 年，您可以将其删除。

End 关键字将有效地结束执行，但它几乎是一个红色的“自毁”大按钮，如果代码结构正确，您实际上永远不需要使用它。

看起来Format_MIUL 是一个Sub 过程。将其设为Function 并返回一个Boolean 值，告诉调用者是否可以继续，或者是否应该取消其余操作：

Private Function Format_MUIL() As Boolean
    '...
    'Save file as .xlsm
    MsgBox "       Save as Excel Workbook (.xlsx)!"
    Dim userResponse As Boolean

    On Error Resume Next
    userResponse = Application.Dialogs(xlDialogSaveAs).Show(, 51)
    On Error GoTo 0

    'return False if userResponse isn't a filename, True otherwise:
    Format_MUIL = Not VarType(userResponse) = vbBoolean
End Function

现在代替这个：

Call Format_MIUL

调用者可以这样做：

If Not Format_MIUL Then Exit Sub

然后就可以了，无需按下任何自毁按钮即可优雅退出。