Guten Morgen,
ich versuche Prozeduren zu schreiben die
Daten aus geschlossenen Arbeitsmappe importieren.
Problem dabei, die Dateien liegen auf verschiedenen Ebenen.
Wenn die Datei im Überordner (eine Ebene höher) liegt, dann
funktioniert der Zugriff mit:
Dim sPath As String
sPath = ThisWorkbook.Path
sPath = Left(sPath, InStrRev(sPath, "\"))
sFile = "Wet.xls"
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
...
Wenn die Datei im Unterordner (eine Ebene tiefer) liegt, dann
funktioniert der Zugriff mit:
Dim sPath As String
sPath = ThisWorkbook.Path & "\Unterordner"
sFile = "Wet.xls"
If Dir(sPath & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
...
Nun zur Frage, wie ist der Zugriff auf eine geschlossene Arbeitsmappe,
wenn die Dateien in gleicher Edene liegen? D.h. ein Verzeichnis hat den Ordner
"Weather" mit der Quell-Datei "Wet.xls" und den Ordner "Ergebnisse" mit der
Ziel-Datei "Messungen.xls"
Und aus der "Messungen.xls" sollen die Daten importiert werden aus "Wet.xls".
Ich hoffe die Frage ist halbwegs verständlich gestellt.
Kann jemand helfen?
Vielen Dank im Vorraus für eure Mühe.
Grüße