vba - 确定公式是否会返回#Ref!错误

Question

我正在 Excel 中编写一个应用程序，该应用程序从多个数据库中提取数据并将这些数据显示在 Excel 2010 工作簿的工作表中。我从数据库中记忆的一些数据采用 Excel 2010 公式的形式(例如 ='Budget Estimate'!E46)。

在从此数据集中填充工作表中的单个单元格的过程中，我需要能够评估我正在下载的公式是否会生成 #Ref!在将值放入单元格之前发生错误。在上面的示例中，如果存在它引用的工作表，则通过 VBA 将该值放在单元格中效果很好。如果没有，我有办法找到它，但首先我需要检测它是否会产生错误，这样最终用户就不必处理弹出的对话框，询问该孤儿的路径工作表。

Answer 1

Sub Tester()

    Dim v
    v = Application.Evaluate("=Sheet999!A1")

    If IsError(v) Then
        Select Case v
            Case CVErr(xlErrRef): Debug.Print "#ref!"
            Case CVErr(xlErrDiv0): Debug.Print "#div by zero!"
            'etc
        End Select
    End If

End Sub

见: http://www.cpearson.com/excel/ReturningErrors.aspx