Office: VBA - Fehlermeldung "Excel kann auf Datei nicht zugreifen"

Hallo,

ich habe folgenden Code bei dem ich leider immer eine Fehlermeldung erhalte.
Der Fehler ist Folgender
Laufzeitfehler '1004"
Excel kann auf die Daten in ''Desktop" nicht zugreifen. Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt

Die Datei ist auf jeden Fall weder verschlüsselt, noch schreibgeschützt, kann mir jemand vielleicht helfen, was ich falsch gemacht habe? Vielen Dank!

Sub Abgleich()

'Variablen deklarieren
Dim HauptDatei As Workbook
Dim InventurDatei As Workbook
Dim HauptTabelle As Worksheet
Dim InventurTabelle As Worksheet
Dim letzteZeile As Long
Dim Zeile As Long
Dim gefunden As Boolean

'Dateipfad der Quelldatei
sPfad = "\Desktop"

'Dateien öffnen
Set HauptDatei = ActiveWorkbook
Set InventurDatei = Workbooks.Open(sPfad)

'Tabellen zuweisen
Set HauptTabelle = HauptDatei.Worksheets("Inventory")
Set InventurTabelle = InventurDatei.Worksheets("Inventory2")

'letzte Zeile in der Haupttabelle ermitteln
letzteZeile = HauptTabelle.Cells(Rows.Count, 1).End(xlUp).Row

'Durch alle Zeilen in der Inventurtabelle iterieren
For Zeile = 2 To InventurTabelle.Cells(Rows.Count, 1).End(xlUp).Row

'prüfen, ob die Zeile in der Haupttabelle vorhanden ist
gefunden = False
For i = 2 To letzteZeile
If InventurTabelle.Cells(Zeile, 1) = HauptTabelle.Cells(i, 1) Then
gefunden = True
Exit For
End If
Next i

'wenn die Zeile in der Haupttabelle nicht gefunden wurde, Zeile in Haupttabelle einfügen
If gefunden = False Then
HauptTabelle.Cells(letzteZeile + 1, 1).Value = InventurTabelle.Cells(Zeile, 1)
HauptTabelle.Cells(letzteZeile + 1, 2).Value = InventurTabelle.Cells(Zeile, 2)
'weitere Spalten hinzufügen, falls nötig
letzteZeile = letzteZeile + 1
End If

Next Zeile

'Inventurdatei schließen
InventurDatei.Close

End Sub

 

Hallo,

auf den ersten Blick stellt sich das so dar, als ob du eine Datei mit dem Namen Desktop öffnen möchtest, das kann nicht gehen, weil Desktop ein Verzeichnis ist.