VBA从已关闭工作簿中的命名单元格返回单元格值

Function GetValueFromClosedWorkbook(closedFilePath As String, closedWorkbookName As String, namedRange As String) As Variant
    Dim closedWorkbook As Object
    Dim closedWorkbookValue As Variant
    
    On Error Resume Next
    Set closedWorkbook = GetObject(closedFilePath & "\" & closedWorkbookName)
    If Err.Number <> 0 Then
        ' 如果无法打开已关闭的工作簿，则返回错误值
        GetValueFromClosedWorkbook = CVErr(xlErrValue)
        Exit Function
    End If
    On Error GoTo 0
    
    ' 获取命名单元格的值
    closedWorkbookValue = closedWorkbook.Names(namedRange).RefersToRange.Value
    
    ' 关闭已关闭的工作簿
    closedWorkbook.Close SaveChanges:=False
    
    ' 返回命名单元格的值
    GetValueFromClosedWorkbook = closedWorkbookValue
End Function