|
Hallo liebes Forum
ich versuche eine Excel-Datei zu öffnen. Da der Pfad abweichend sein kann, würde ich gerne vorab bestimmte "Pfadteile" über eine Inputbox einfügen.
Dies ist der "fixe" code bzw. Pfad
Workbooks.Open FileName:="/Users/gruppe1/Desktop/Mappe2.xlsm"
Mein Versuch:
Dim user As String, sWb As String
user = InputBox("User eingeben: ")
sWb = InputBox("Dateiname eingeben: ")
Workbooks.Open FileName:=("/Users/" & user & "/Documents/" & sWb & ".xlsx")
Darüber hinaus peile ich an, dass wenn der eingegebene Pfad nicht funktioniert ein Infobox erscheint, in der man den gesamten Pfad eingeben kann, der dann für das Öffnen der Excel-Datei verwendet wird. Funktioniert dies, mit On Error GoTo?
Vielen Dank und viele Grüße
|