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

）

---

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

将为您提供帮助started@Kyle我可以从对话框中选择文件，但仍然无法打开该文件。我想知道是否有一个单独的命令或一行代码来打开我从对话框中选择的文件。您是否阅读了链接并查看了相关示例？它向您展示了如何提取所选文件的路径，然后您可以简单地使用带有该路径的

工作簿.Open（）

。@Kyle谢谢您的帮助是的，谢谢@Masoud。我只想打开一个文件。

 Dim file As String
 Dim myWbk As Workbook     

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

 Set myWbk = Workbooks.Open(file)