Excel VBA：使用FilePicker选择双工作簿及激活故障排查

问题核心原因 #

1. 变量作用域限制：wbfinal和wbworking是各自子过程内的局部变量，其他过程根本无法访问。比如WorkWithFinalFile里找不到wbfinal这个变量，直接调用必然报错。
2. 文件路径处理错误：用Dir(.SelectedItems(1))只提取了文件名，若选中的文件不在Excel当前默认路径下，Workbooks.Open会找不到文件，后续变量赋值也会失败。
3. 激活语法错误：Workbooks(wbfinal).Activate是错误用法——wbfinal本身就是Workbook对象，不需要再通过Workbooks集合调用。

修复方案与代码优化 #

关键调整点 #

• 把wbfinal和wbworking声明为模块级变量，让所有子过程都能访问。
• 直接使用.SelectedItems(1)获取完整文件路径，不再用Dir截断。
• 修正激活语法，直接调用对象的Activate方法。
• 增加用户取消选择时的退出逻辑，避免空值报错。

修正后的完整代码 #

' 模块级变量：所有子过程均可访问
Dim wbfinal As Workbook
Dim wbworking As Workbook

Sub SelectFinalFileOptima()
    ' 选择最终文件
    Dim fd As Office.FileDialog
    Dim fullFilePath As String
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .AllowMultiSelect = False
        .Title = "请选择上月的Optima Final文件"
        .Filters.Clear
        .Filters.Add "Optima Final", "*.xlsx"
        
        If .Show = True Then
            ' 获取完整文件路径（包含目录）
            fullFilePath = .SelectedItems(1)
        Else
            ' 用户取消选择，直接退出
            Exit Sub
        End If
    End With
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 打开文件同时直接赋值给模块级变量
    Set wbfinal = Workbooks.Open(fullFilePath)
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Sub WorkWithFinalFile()
    ' 先判断文件是否已正确选择并打开
    If Not wbfinal Is Nothing Then
        wbfinal.Activate
    Else
        MsgBox "请先选择Optima Final文件！"
    End If
End Sub

Sub SelectWorkingFileOptima()
    ' 选择工作文件
    Dim fd As Office.FileDialog
    Dim fullFilePath As String
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .AllowMultiSelect = False
        .Title = "请选择上月的Optima Working文件"
        .Filters.Clear
        .Filters.Add "Optima Working", "*.xlsx"
        
        If .Show = True Then
            fullFilePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set wbworking = Workbooks.Open(fullFilePath)
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

内容的提问来源于stack exchange，提问作者Tom