Выполнение модуля в другой книге Excel с использованием VBA

Question

Я пытался сделать эту работу навсегда.
Я хочу выполнить модуль в другой книге из текущей книги wbCntl.
Точный код работает в одном приложении, но не в другом.

sSignalInProcess и wbSignalInProcess определены правильно. Идея состоит в том, чтобы либо открыть, либо создать файл sSignalInProcess на первом проходе, а затем пропустить этот код при последующем запуске его кода.

Вот мой код:

Sub GetSignalFile() 
    'Open workbook if signal file is open 
    On Error Resume Next 
    Set wbSignalInProcess = Workbooks(sSignalInProcess) 
    If Err.Number <> 0 Then 
     Err.Clear 
     'Open existing signal workbook 
     On Error Resume Next 
     Set wbSignalInProcess = Workbooks.Open(sFilePath & sSignalInProcess) 
     If Err.Number <> 0 Then 
      Err.Clear 
      'Copy template signal workbook to a new workbook file for new signal 
      FileCopy (sStdSignal), (sFilePath & sSignalInProcess) 
      wbSignalInProcess.Save 
      'Open new signal workbook 
      Set wbSignalInProcess = Workbooks.Open(sFilePath & sSignalInProcess) 
     End If 
    End If 
    Err.Clear 
    Application.Run (wbSignalInProcess.Name & "!MainIntuitor") 
    wbCntl.Activate 
End Sub 

Линия

Application.Run (wbSignalInProcess.Name & "!MainIntuitor") 

пропускается и не выполняется без ошибок. Любая помощь будет оценена по достоинству.

Грант

Answer 1

Я предлагаю вам добавить

On Error Goto 0 

до критической линии. Возможно, тогда вы получите более полезное сообщение об ошибке. К слову, второй

On Error Resume Next 

в коде не нужен - раз вы активировали «Resume Next», он держит неоспоримое активирован до тех пор, пока оставить Sub или деактивировать его с On Error Goto 0.