提示用户打开另一个工作簿

Question

我正在编写一个子程序，需要用户打开特定的工作簿，因为我需要将要打开的工作簿中的数据复制到运行该子程序的工作簿中。 由于将要打开的文件是月度报告，因此用户很难始终将其保存在具有相同文件名的相同位置。 因此，如果要求用户打开工作簿（月报表），那就太好了。

Answer 1

Function openMontlyReport() as Workbook
   MsgBox "Please select the monthly report in the next file dialog"
   With Application.FileDialog(msoFileDialogOpen)
     .Title = "Select Monthly Report"
     .Filters.Add "Excel Files", "*.*"
     .AllowMultiSelect = False
     If .Show Then Set openMontlyReport = Application.Workbooks.Open .SelectedItems(1)
   End With
End Function

现在，您拥有了用户刚刚打开的每月工作簿。