Question

如果用户点击此代码中的Cancel或X，我想结束我的宏：

Dim TargetFile As String

TargetFile = Application.GetSaveAsFilename(FileFilter:="AVL (*.rtf), *.rtf", 
InitialFileName:="AVL.rtf")

即使我按cancel或X。

，宏也会立即投放

如果按下cancel或X，您如何调整代码以结束宏？

Answer 1

来自Application.GetSaveAsFilename的{{3}}

此方法返回所选文件名或用户输入的名称。返回的名称可能包含路径规范。如果用户取消对话框，则返回 False 。

所以：

Dim TargetFile As Variant

TargetFile = Application.GetSaveAsFilename(FileFilter:="AVL (*.rtf), *.rtf", _
    InitialFileName:="AVL.rtf")
If (TargetFile = False) Then Exit Sub

如果在＆＃34; GetSaveAsFileName＆＃34;中单击取消按钮，如何结束功能 - VBA中的对话框

1 个答案: