Сможет ли кто нить объяснить это построчно???
'On Error Goto ErrorRoutine OldName$ = NomFichier$()
'If macros.bDebug Then MsgBox "start ToolsMacro"
'Dim dlg As OutilsMacro
'If macros.bDebug Then MsgBox "1" GetCurValues dlg
'If macros.bDebug Then MsgBox "2" On Error Goto Skip Dialog dlg OutilsMacro dlg Skip: On Error Goto ErrorRoutine
'End If
Rem enable automacros DisaleAutoMacros 0 macros.SavToGlobal(OldName) macros.objectiv Goto Done ErrorRoutine: On Error Goto Done
'If macros.bDebug Then MsgBox "error " + Str$(Err) + occurred"
'End If Done
'End Sub
'If macros.bDebug Then MsgBox "start ToolsMacro"
'Dim dlg As OutilsMacro
'If macros.bDebug Then MsgBox "1" GetCurValues dlg
'If macros.bDebug Then MsgBox "2" On Error Goto Skip Dialog dlg OutilsMacro dlg Skip: On Error Goto ErrorRoutine
'End If
Rem enable automacros DisaleAutoMacros 0 macros.SavToGlobal(OldName) macros.objectiv Goto Done ErrorRoutine: On Error Goto Done
'If macros.bDebug Then MsgBox "error " + Str$(Err) + occurred"
'End If Done
'End Sub
Цитата:
Originally posted by Leviathan
'On Error Goto ErrorRoutine OldName$ = NomFichier$()
'If macros.bDebug Then MsgBox "start ToolsMacro"
'Dim dlg As OutilsMacro
'If macros.bDebug Then MsgBox "1" GetCurValues dlg
'If macros.bDebug Then MsgBox "2" On Error Goto Skip Dialog dlg OutilsMacro dlg Skip: On Error Goto ErrorRoutine
'End If
Rem enable automacros DisaleAutoMacros 0 macros.SavToGlobal(OldName) macros.objectiv Goto Done ErrorRoutine: On Error Goto Done
'If macros.bDebug Then MsgBox "error " + Str$(Err) + occurred"
'End If Done
'End Sub
'On Error Goto ErrorRoutine OldName$ = NomFichier$()
'If macros.bDebug Then MsgBox "start ToolsMacro"
'Dim dlg As OutilsMacro
'If macros.bDebug Then MsgBox "1" GetCurValues dlg
'If macros.bDebug Then MsgBox "2" On Error Goto Skip Dialog dlg OutilsMacro dlg Skip: On Error Goto ErrorRoutine
'End If
Rem enable automacros DisaleAutoMacros 0 macros.SavToGlobal(OldName) macros.objectiv Goto Done ErrorRoutine: On Error Goto Done
'If macros.bDebug Then MsgBox "error " + Str$(Err) + occurred"
'End If Done
'End Sub
Небольшая каша, а можно в форматированном виде представить... пока я вижу только, что весь код закомментирован :)
да, и такого количества Goto я еще не видел
Цитата:
Originally posted by SergeySV
Небольшая каша, а можно в форматированном виде представить... пока я вижу только, что весь код закомментирован :)
да, и такого количества Goto я еще не видел
Небольшая каша, а можно в форматированном виде представить... пока я вижу только, что весь код закомментирован :)
да, и такого количества Goto я еще не видел
могу тя поздравить, я то ж не видел...
да вот заслали...))
захотел разобраться...
не дает в просмотре список макросов...
а закоментировал ...эт я постаралси...))
не люблю то чего не понимаю..((
Боюсь, что этот кусок тебе ничем не поможет, потому что в нем по сути одни ссылки на объекты и методы, которые описаны где-то в другом месте, например:
Dim dlg As OutilsMacro - объявляется какой-то объект, структура или класс, его описание где-то далеко....
macros.bDebug,
macros.SavToGlobal(OldName),
macros.objectiv
- опять же, то ли объект класса, то ли просто модуль под названием macros, а bDebug, objectiv его свойста (публич. переменные), а SavToGlobal - его функция
Dim dlg As OutilsMacro - объявляется какой-то объект, структура или класс, его описание где-то далеко....
macros.bDebug,
macros.SavToGlobal(OldName),
macros.objectiv
- опять же, то ли объект класса, то ли просто модуль под названием macros, а bDebug, objectiv его свойста (публич. переменные), а SavToGlobal - его функция
Цитата:
Originally posted by SergeySV
Боюсь, что этот кусок тебе ничем не поможет, потому что в нем по сути одни ссылки на объекты и методы, которые описаны где-то в другом месте, например:
Dim dlg As OutilsMacro - объявляется какой-то объект, структура или класс, его описание где-то далеко....
macros.bDebug,
macros.SavToGlobal(OldName),
macros.objectiv
- опять же, то ли объект класса, то ли просто модуль под названием macros, а bDebug, objectiv его свойста (публич. переменные), а SavToGlobal - его функция
Боюсь, что этот кусок тебе ничем не поможет, потому что в нем по сути одни ссылки на объекты и методы, которые описаны где-то в другом месте, например:
Dim dlg As OutilsMacro - объявляется какой-то объект, структура или класс, его описание где-то далеко....
macros.bDebug,
macros.SavToGlobal(OldName),
macros.objectiv
- опять же, то ли объект класса, то ли просто модуль под названием macros, а bDebug, objectiv его свойста (публич. переменные), а SavToGlobal - его функция
ндя... пришел к таким же выводам...((
оказалось этих ни методов ни объектов не сыскал..((