VBA 打开 Excel 文件

我正在尝试使用 VBA 打开 Excel 文件文件夹中的 Excel 文件。我指示我的代码将最终用户直接带到该文件夹​​，并允许他从对话框中选择文件。但即使从对话框中选择文件后，我也无法打开该文件。

我对问题的理解是 - 我错过了选择文件后打开文件的命令。

这是我的代码，

thisYear = Year(Date)


'change the display name of the open file dialog
    Application.FileDialog(msoFileDialogOpen).Title = _
    "Select Input Report"

 'Remove all other filters
 Application.FileDialog(msoFileDialogOpen).Filters.Clear

 'Add a custom filter
 Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
     "Excel Files Only", "*.xls*")

     'Select the start folder
     Application.FileDialog(msoFileDialogOpen _
     ).InitialFileName = "\\driveA\Reports\" & thisYear & ""

请分享您的想法。谢谢。

我假设您只允许选择一个文件（即AllowMultiSelect = False).

 Dim file As String
 Dim myWbk As Workbook     

 file = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) 

 Set myWbk = Workbooks.Open(file)

第一行获取所选文件的路径，然后第二行打开它。将其添加到代码末尾。