Datei öffnen mit relativem Pfad?

[jegaard]

Hallo,

in einem Makro möchte ich eine Datei öffnen. Die Angabe der Datei soll aber mit einer relativen Pfadangabe erfolgen ("../../Ordner/Datei.sxw"), um nicht auf eine bestimmte Installation festgelegt zu sein. (Relativ zu dem Dokument, welches das Makro enthält).

Geht das überhaupt?
Hat jemand diesbezügliche Erfahrungen?

Danke für Eure Hilfe!
Jegaard

[Stephan]

Da der Pfad des Dokuments aus dem das Makro gestartet wurde:

Code: Alles auswählen

ThisComponent.URL

ist, mußt Du daraus nur unter Berücksichtigung des relativen Pfades den aktuellen absoluten Pfad ermittel. Für Deine Vorgaben z.B. so:

Code: Alles auswählen

Sub Main
i = 0
j = 0
do
i= i + 1
x = RIGHT(ConvertToURL(ThisComponent.URL),i)
if left(x,1) = "/" Then
j = J +1
End if
Loop While j < 3
pfad = LEFT(ConvertToURL(ThisComponent.URL), LEN(ConvertToURL(ThisComponent.URL))-i+1)
pfad = Pfad & "Ordner/Datei.sxw"
msgbox Pfad
Dim Dummy()
dokument = StarDesktop.loadComponentFromURL( pfad , "_blank", 0, Dummy() )
End Sub

Gruß
Stephan

[jegaard]

Hallo Stefan,

vielen Dank für Deine Tipps!
Super!

Jegaard