Определите, вернется ли формула #Ref! error

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.