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

Question

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

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

现在您已经掌握了用户刚刚打开的月度工作簿。