Excel Vba 提示用户输入文件夹然后创建工作表

Question

我正在尝试提示用户选择一个文件夹，然后如果选择了一个文件夹，则继续使用我的代码创建一个新工作表，但如果用户取消提示，则退出 sub 并且不要继续使用代码. 以下是我尝试过的。

当我按下取消时，它能够显示“请选择一个文件夹”，但是即使我选择一个文件夹，它也会显示“请选择一个文件夹”并停止。

谁能帮我解决这个问题，我一直在尝试各种方法，这是我能做的最好的。

Sub selectfolder_createnewsheet
Dim basePath As String
            basePath = BrowseForFolder("C:\")
            On Error GoTo errhandler
errhandler:
            MsgBox "Please Select a Folder"
            Exit Sub

            Dim wks As Worksheet
            Set wks = CreateOutputSheet(ActiveWorkbook)
End Sub

Answer 1

我通常这样做是为了如果用户按下取消，那也会被处理。

Sub selectfolder_createnewsheet()
    Dim basePath As Variant
    basePath = BrowseForFolder("C:\")

    If basePath = False Then
        MsgBox "Nothing Selected. Aborting", vbInformation, "No Folder Selected"
        Exit Sub
    End If

    Dim wks As Worksheet
    Set wks = CreateOutputSheet(ActiveWorkbook)
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
    '
    '
    '
End Function