Ausführen von Excel-Makro über Outlook: Laufzeitfehler '-2147417851 (80010105)'

Question

Ich habe ein Outlook-Projekt, das alle Anlagen aus ausgewählten E-Mails an bestimmten Speicherort speichern. Dann habe ich Excel-Arbeitsmappe, die Makro enthalten, überprüft gespeicherte Dateien und einige Sachen. Ich möchte aus Outlook Projekt Excel-Makro nennen, aber ich bin immer Fehler:

Laufzeitfehler '-2147417851 (80010105)' Methode 'Run' des Objekts '_Application'

fehlgeschlagen

-Code, wo ich Fehler bin immer ist:

Sub CheckRDSFiles() 

    Dim fso As New FileSystemObject 
    Dim files As TextStream 
    Dim strFolderPath As String 
    Dim exApp As Excel.Application 
    Dim check_RDS As Workbook 
    Dim readROW As String 

'Create complete folder to save files 
    strFolderPath = SAVE_TO_FOLDER & Format(Now, "MMMM") & "\" & Format(Date, "yyyy-MM-DD") & "\" 

'File that stores files to be processed 
    Set files = fso.OpenTextFile(strFolderPath & "files.txt", ForReading, True, TristateUseDefault) 

'Create excel application and open excel workbook with macro 
    Set exApp = New Excel.Application 
    Set check_RDS = exApp.Workbooks.Open(CHECK_RDS_PATH) 
    exApp.Visible = True 

'Reading file 
    Do Until files.AtEndOfStream 
'each line represent path to one file 
     readROW = files.ReadLine 
     Debug.Print readROW 
'call macro from workbook "gatekeeper.xlsm" in module "Test" with name "test" and with parametres 
     check_RDS.Application.Run "gatekeeper.xlsm!Test.test", readROW, strFolderPath 
    Loop 

End Sub 

Der Fehler auf der Leitung ist:

check_RDS.Application.Run "gatekeeper.xlsm!Test.test", readROW, strFolderPath 

Der spaßige Teil ist, dass ich dies gelegentlich ohne Probleme ausführen kann, aber ich muss es jedes Mal ohne Probleme ausführen.

Auch wenn ich diesen Fehler habe, friert mein Excel ein und ich muss es mit Task-Manager herunterfahren.

Answer 1

Versuchen Sie diese statt der Zeile Sie erroring auf:

check_RDS.Run "'gatekeeper.xlsm'!test", readROW, strFolderPath