VBA для поиска папки, в которой сохранена книга

Question

У меня есть немного кода, чтобы выбрать все файлы xlsx в папке и поместить их в одну рабочую книгу.Мне было интересно, смогу ли я заставить vba найти папку, в которой сохранена основная рабочая книга, или vba может спросить, какую папку я хочу выбрать.

Sub GetSheets()

    Path = "S:\xxxxx\"
    Filename = Dir(Path & "*.xlsx")
    Do While Filename <> ""
        Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
            For Each Sheet In ActiveWorkbook.Sheets
            Sheet.Copy After:=ThisWorkbook.Sheets(1)
            Next Sheet
        Workbooks(Filename).Close
        Filename = Dir()
    Loop
    Application.ScreenUpdating = True

End Sub

Answer 1

Вы можете сослаться на это:

        Sub openfldr()

        Dim fldr As FileDialog
        Dim sItem As String
        Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
        With fldr
            .Title = "Select a Folder"
            .AllowMultiSelect = False
            .InitialFileName = Application.DefaultFilePath
            If .Show <> -1 Then GoTo NextCode
            sItem = .SelectedItems(1)
        End With
NextCode:
        GetFolder = sItem
        Set fldr = Nothing
    End Sub

Answer 2

Path = ThisWorkbook.Path

должен добиться цели.