Excel 2016宏运行报错438：需按单元格值自动打开指定工作簿

错误原因分析 #

运行时错误'438'的直接原因是代码调用了不存在的方法：

• xl.GetOpenFilename_多了一个下划线，正确方法名应为GetOpenFilename
• 另外原代码逻辑和你的需求不符：你需要自动打开指定的Gradesheet工作簿，但原代码用了文件选择对话框，需要手动选择文件，不符合自动触发的要求

修正后的完整代码 #

1. 工作表变更事件宏（必须放在QuickCalc2工作表的模块中） #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只在L3单元格发生变化时触发，避免每次改单元格都执行
    If Not Intersect(Target, Me.Range("$L$3")) Is Nothing Then
        ' 判断L3的值是否为T3或T4
        If Me.Range("$L$3").Value = "T3" Or Me.Range("$L$3").Value = "T4" Then
            Call Open_Gradesheet_Workbook
        End If
    End If
End Sub

2. 打开指定工作簿的宏（可放在任意标准模块中） #

Sub Open_Gradesheet_Workbook()
    Dim wb As Workbook
    Dim filePath As String
    
    ' 替换成你Gradesheet工作簿的实际路径，示例：
    ' filePath = "D:\工作文件\Gradesheet.xlsx"
    ' 如果和当前文件在同一文件夹，可简化为：
    filePath = ThisWorkbook.Path & "\Gradesheet.xlsx"
    
    ' 先检查工作簿是否已经打开
    On Error Resume Next
    Set wb = Workbooks("Gradesheet.xlsx")
    On Error GoTo 0
    
    ' 没打开就打开，已打开则提示
    If wb Is Nothing Then
        Set wb = Workbooks.Open(Filename:=filePath)
        MsgBox "已成功打开Gradesheet工作簿"
    Else
        MsgBox "Gradesheet工作簿已经打开了"
    End If
End Sub

关键修正点说明 #

• 修正了GetOpenFilename_的方法名错误，移除多余下划线
• 优化工作表变更事件，仅在L3单元格变化时触发，减少不必要的执行
• 替换文件选择对话框为直接打开指定路径的工作簿，完全匹配自动打开的需求
• 增加了工作簿是否已打开的判断，避免重复打开导致的错误

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