VBA 点击按钮打开文件夹选项选择excel文件并在后台打开它

可以使用 VBA 中的 FileDialog 对象来实现此操作。以下是示例代码：

Sub OpenExcelFile()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    '设置对话框标题
    fd.Title = "请选择要打开的Excel文件所在的文件夹"
    
    '只允许选择文件夹
    fd.AllowMultiSelect = False
    fd.Show
    
    '判断是否选择了文件夹
    If fd.SelectedItems.Count <> 0 Then
        '获取选择的文件夹路径
        Dim folderPath As String
        folderPath = fd.SelectedItems(1)
        
        '打开文件夹并选择Excel文件
        Dim excelFilePath As String
        excelFilePath = Application.GetOpenFilename("Excel文件(*.xlsx),*.xlsx", , "请选择要打开的Excel文件", , False)
        
        '判断是否选择了Excel文件
        If excelFilePath <> False Then
            '在后台打开Excel文件
            Workbooks.Open Filename:=excelFilePath, UpdateLinks:=False, ReadOnly:=True
        End If
    End If
End Sub

这段代码会弹出一个文件夹选择对话框，让用户选择包含要打开的Excel文件的文件夹。然后再弹出一个文件选择对话框，让用户选择要打开的Excel文件。如果用户选择了文件夹和Excel文件，则会在后台打开该Excel文件。