如何用VBA实现用户指定工作簿并调用其单元格范围计算？

完全理解，新手入门VBA遇到这类问题太正常了，咱们一步步来修正你的代码，让它能正常运行～

首先先梳理你原代码里的几个关键问题：

• Application.GetOpenFilename返回的是文件的完整路径字符串，不能直接用Workbooks(wb)来引用工作簿，因为Workbooks集合需要的是工作簿的名称（不带路径）或者索引号
• 没有处理用户取消选择文件的情况（这时候GetOpenFilename会返回False）
• Range("A1")没有指定所属的工作簿和工作表，容易导致引用错误（默认会用当前激活的工作表，逻辑不稳定）

下面是修正后的完整代码：

Sub Other_Workbook_Range()
    Dim filePath As Variant
    Dim targetWb As Workbook
    Dim currentWs As Worksheet
    
    ' 设置当前要对比的工作表（这里假设是当前宏所在工作簿的Sheet1，可根据需要修改）
    Set currentWs = ThisWorkbook.Worksheets("Sheet1")
    
    ' 让用户选择目标工作簿，支持取消操作
    filePath = Application.GetOpenFilename(FileFilter:="Excel 文件 (*.xlsx;*.xls), *.xlsx;*.xls", Title:="请选择目标工作簿")
    If filePath = False Then
        MsgBox "已取消选择"
        Exit Sub
    End If
    
    ' 打开选定的工作簿并获取对象
    Set targetWb = Workbooks.Open(Filename:=filePath)
    
    ' 进行单元格值对比计算
    On Error Resume Next ' 防止目标工作表或单元格不存在的报错
    If currentWs.Range("A1").Value = targetWb.Worksheets("Sheet 1").Range("H74").Value Then
        MsgBox "Okay"
    Else
        MsgBox "Fix"
    End If
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 可选：如果不需要保留打开的工作簿，可以关闭它，这里设置为不保存更改
    targetWb.Close SaveChanges:=False
End Sub

给你拆解下关键修改点：

• 用Variant类型接收GetOpenFilename的返回值，因为它可能返回字符串（文件路径）或者布尔值（用户取消选择）
• 新增了取消选择的判断逻辑，避免后续代码无意义执行报错
• 明确指定了要对比的单元格所属的工作簿和工作表（ThisWorkbook指的是当前宏所在的工作簿，不会受激活状态影响）
• 增加了临时错误捕获，防止用户选择的工作簿里没有"Sheet 1"或者H74单元格不存在的情况
• 最后可以选择关闭打开的目标工作簿，避免留下多余的窗口

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