确定公式是否会返回#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

Answer 2

您可以使用Evaluate 测试您的公式。试试：

If IsError(Evaluate("='Budget Estimate'!E46")) Then
    'other cool stuff here
End If

这将在您将错误放入单元格之前捕获错误，但不特定于参考错误。
这将捕获公式上的所有错误。不是 100% 是您正在寻找的答案，而是 HTH。