Из поля выбора в определенную папку

Question

У меня есть код ниже как часть большего макроса. Я хотел бы изменить его, чтобы автоматически выбирать все файлы в папке, которая начинается с «Packaginglist» и заканчивается «.xlsx». Поэтому моя команда не может (не удается) выбрать правильные файлы каждый раз.

Set mainWorkbook = Application.ActiveWorkbook
Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker)

'Allow the user to select multiple workbooks
tempFileDialog.AllowMultiSelect = True

numberOfFilesChosen = tempFileDialog.Show

'Loop through all selected workbooks
For i = 1 To tempFileDialog.SelectedItems.count

    'Open each workbook
    Workbooks.Open tempFileDialog.SelectedItems(i)

    Set sourceWorkbook = ActiveWorkbook

    'Copy each worksheet to the end of the main workbook
    For Each tempWorkSheet In sourceWorkbook.Worksheets
        tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.count)
    Next tempWorkSheet

    'Close the source workbook
    sourceWorkbook.Close
Next i

Это сетевая папка, но мы можем просто назвать ее "C: \ Packaging-lists \ Merged \" для простоты .