VBA 打开文件夹选项让用户选择excel 文件 ，如果选择了excel 文件则打开这个文件，但是不显示打开的文件的窗口

可以使用以下 VBA 代码实现该功能：

Sub OpenSelectedExcelFile()
    Dim file As Variant
    file = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx,")
    If file <> False Then
        Application.DisplayAlerts = False
        Application.Workbooks.Open Filename:=file, UpdateLinks:=0
        Application.DisplayAlerts = True
        ThisWorkbook.Activate
    End If
End Sub

这段代码会弹出一个文件选择对话框，让用户选择 Excel 文件。如果用户选择了文件，则会使用 Excel 的工作簿打开该文件，但是不会显示 Excel 窗口。如果用户取消选择文件，则代码什么都不做。最后要将当前工作簿激活，以便用户可以在该工作簿中继续进行其他操作。