relative Pfadbezüge
26.07.2006 12:06:32
stefanseevetal
Ich habe noch eine kleine Frage:
Ich möchte gerne per Button eine andere Excel-Datei öffnen. Das funktioniert auch mit dem hier geschriebenen Makro:
Sub zu_Checkliste()
Dim sPfad As String
sPfad = ThisWorkbook.Path & "\P001_checkliste.xls" '
If DateiGeoeffnet(sPfad) = True Then
Windows("P001_checkliste.xls").Activate
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\P001_checkliste.xls"
End If
End Sub
Wie kann ich es aber hinbekommen, wenn meine zu öffnende Datei in einem anderen Verzeichnis liegt. Beispiel:
Die bereits geöffnete Datei mit dem Button liegt in: C:\Programme\Datenbank\sonstiges\test.xls
Die zu öffnende Datei liegt in: C:\Programme\Datenblätter\checkliste.xls
Ich möchte das gerne mit relativen Pfadbezügen machen, da sich der Speicherort der Dateien ändern kann (die relativen Bezüge aber würden bestehen bleiben).
Hat da jemand eine Idee? Wie kann ich einen Ordner zurück gehen, wie einen hoch?
Danke und Gruß,
Stefanseevetal