vba 打开文件夹选项让用户选择excel文件后在后台打开

您可以使用VBA中的FileDialog对象来弹出“打开文件”对话框并选择Excel文件。以下是一个示例代码段：

Dim selectedFile As Variant

' 弹出选择Excel文件对话框
selectedFile = Application.GetOpenFilename("Excel文件 (*.xls*),*.xls*", , "选择要打开的Excel文件", , False)

' 确保用户选择了文件
If Not selectedFile = False Then
    ' 在后台打开Excel文件
    Workbooks.Open fileName:=selectedFile, UpdateLinks:=0, ReadOnly:=True
End If

请注意，此代码将文件作为只读文件打开，以防止对原始文件进行更改。如果您需要进行更改，请删除ReadOnly参数。

相关问题

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文件。

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 窗口。如果用户取消选择文件，则代码什么都不做。最后要将当前工作簿激活，以便用户可以在该工作簿中继续进行其他操作。