Как обойти Run-Time Error 1004 (VBA ECXEL)?

[Antov]

Есть некая формула, генерируемая динамически VBA кодом типа
((10+3)-8/9)*0,25
или
5/2*3
или
5*ыв56+8
и т.д
Нужно определить рабочая ли она, как в первых 2х случаях и обсчитать её, либо отказать в обсчёте.
Обсчёт производится путём
Application.ExecuteExcel4Macro (myformula)
В случае если формула содержит левые сиволы вылетает ошибка (см топ), никак не могу её обойти...
Как её перехватить?
Спасибо

[bi-lya]

Я так думаю, создать обработчик ошибок (самое простое:

Код: Выделить всё

On Error GoTo MyError
...
MyError
If Err.Numder=1004 Then...

), который будет в случае возникновения ошибки обходить это выражение и двигать программу дальше

[Antov]

Я так думаю, создать обработчик ошибок (самое простое:

Код: Выделить всё

On Error GoTo MyError
...
MyError
If Err.Numder=1004 Then...

), который будет в случае возникновения ошибки обходить это выражение и двигать программу дальше

К сожалению ни эта конструкция, ни
if isError (...)
не работают
Ошибка так и выскакивает... а обработчик просто её не замечает.. ни перед ошибкой.. ни после неё, хотя в переменно Err появляются все значения....
Может я чего не так делаю...

[Antov]

Причём если в настройках Tools / Options / General поставить Break on Unhandleв Errors, то обработчик начинает срабатывать и перехватывает ошибку.
Просто данный скрипт быдет выполняться на абсолютно разных компах, боюсь как бы там она не начала вылазить.

[Template]

Код: Выделить всё

myformula = "((10+3)-8/9)*0.25"

If IsError(Evaluate(myformula)) Then MsgBox "Err"

[Antov]

Код: Выделить всё

myformula = "((10+3)-8/9)*0.25"

If IsError(Evaluate(myformula)) Then MsgBox "Err"

УВАЖАЕМЫЙ!!!
Нижчайший Вам поклон, спасибо!!!
уже 18 часов сижу с этой бедой Помог.
Единчтвенное, если не трудно, можно ъоть сылочку что это за штука такая Evaluate, а то при беглом поиске в Ya ничего не нашёл.
Ещё раз спасибо!!!!!

++++
Простите, криво запрос написал, нашёл
Ещё раз спс!