使用VBA在另一個Excel工作簿中執行模塊

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其停用。