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