vba 打开文件夹 选定excel 文件 如何实现

你可以通过以下代码实现：

Sub OpenExcelFile()
    '设置一个文件对话框对象
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    '设置允许选择的文件类型
    fd.Filters.Add "Excel Files", "*.xls; *.xlsx", 1
    
    '设置是否允许多选文件
    fd.AllowMultiSelect = False
    
    '如果用户按下了确定按钮，将选中的文件路径赋值给变量filePath，并打开该Excel文件
    If fd.Show = True Then
        Dim filePath As String
        filePath = fd.SelectedItems(1)
        Workbooks.Open filePath
    End If
    
    '销毁文件对话框对象
    Set fd = Nothing
End Sub

这段VBA代码会打开一个文件对话框供用户选择Excel文件，如果用户选择了文件并按下了确定按钮，该Excel文件就会被打开。