Hallo zusammen,
ich habe ein Problem bezüglich Files und Ordner welcher nicht absolut, sondern relativ verlinkt werden soll.
Was möchte ich?
Ich habe in Excel Schaltflächen (Formularsteuerungselemente) hinzugefügt. Diese dienen dann als Verlinkungen in Files, Ordner, etc.
Wie kann ich das hinsichtlich des Codes generieren?
Aktuell sieht es wie folgt aus:
Sub Schaltfläche3_Klicken_Risikoanalyse()
'
' Erläuterung Risikoanalyse Makro
Pfad = "E:\OneDrive\Energie\QM\Erledigt\04_QMH_MZ\Aufzeichnungen\Risikoanalyse\Erläuterung Risikoanalyse.docx"
Dim WdApp As Object
Dim wdDok As Object
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End Sub
Ich möchte nun dass der Pfad
Pfad = "E:\OneDrive\Energie\QM\Erledigt\04_QMH_MZ\Aufzeichnungen\Risikoanalyse\Erläuterung Risikoanalyse.docx"
Was sollte relativ sein?
E:\OneDrive\Energie\
im Falle eines Packens in eine ZIP-File, sich nach dem Öffnen, durch den Wechsel des Nutzers, automatisch aktualisiert.
Gibt es hier Lösungsansätze?
Vielen Dank
|