VBA-Arbeitsmappe Öffnen von Makro schlägt fehl “(Pfad & Dateiname) konnte nicht gefunden werden. Überprüfen Sie die Schreibweise..."

Ich habe folgenden code, der sollte sich einfach öffnen Sie eine Arbeitsmappe aus einem master-Arbeitsmappe, mir zu erlauben, fügen Sie einige Informationen, die ich später abrufen aus einer Datenbank. Ich erhalte die Fehlermeldung in den Titel jedes mal ich versuchen, eine Arbeitsmappe öffnen. Benutzt habe ich einen ähnlichen code wie vor mit kein problem überhaupt. Die Dateien sind auf einem server vorhalten Weg von meinem desktop, aber der Pfad wurde richtig jedes mal. Ich habe immer und immer wieder. Was könnte die Ursache sein?

Sub copyDealerDataToWorkbook(ByVal targetID As Integer)

    Dim mainWB      As Workbook    
    Dim directory   As String
    Dim fn          As String
    Dim aFile       As Excel.Application

    Set aFile = CreateObject("Excel.Application")

    Set mainWB = ActiveWorkbook
    directory = ActiveWorkbook.Path

    'append a "\"
    If InStrRev(directory, "\") < Len(directory) Then
        directory = directory & "\"
    End If

    fn = targetID & ".xls"

    aFile.Application.Visible = True
    aFile.Workbooks.Open directory & fn 'ERROR ON THIS LINE
    aFile.Parent.Windows(1).Visible = True
End Sub

Habe ich auch versucht den folgenden code...

Sub copyDealerDataToWorkbook(ByVal targetID As Integer)
    Dim foreignWB   As Workbook
    Dim mainWB      As Workbook
    Dim directory   As String
    Dim fn          As String

    Set mainWB = ActiveWorkbook
    directory = ActiveWorkbook.Path

    'append a "\"
    If InStrRev(directory, "\") < Len(directory) Then
        directory = directory & "\"
    End If

    fn = targetID & ".xls"

    Set foreignWB = Workbooks.Open(fileName:=directory & fn) 'ERROR ON THIS LINE
End Sub