Excel 从选择框到定义的文件夹

我有下面的代码作为一个更大的宏的一部分。我想将其更改为自动选择文件夹中以“PackageList”开头并以“.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 list\Merged\”。

这是否回答了您的问题？这回答了你的问题吗？