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