VBA打开一个Excel文件

我正在尝试使用VBA在excel文件的文件夹中打开一个excel文件。 我指示我的代码，让最终用户直接到文件夹，并允许他从对话框中select文件。 但是，即使从对话框中select文件，我也无法打开文件。

我对这个问题的理解是 – 我在命令中错过了select它后打开文件。

这是我的代码，

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 & "" 

请分享你的想法。 谢谢。

Answer 1

我假设你只允许select一个文件（即AllowMultiSelect = False ）。

  Dim file As String Dim myWbk As Workbook file = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) Set myWbk = Workbooks.Open(file) 

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