Question

我正在尝试使用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 & ""

请分享您的想法。感谢。

Answer 1

我假设你只选择一个文件（即AllowMultiSelect = False）。

 Dim file As String
 Dim myWbk As Workbook     

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

 Set myWbk = Workbooks.Open(file)

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

VBA打开Excel文件

1 个答案: