Office: (Office 2019) Pfad standardisieren

Hallo zusammen.
Hätte mal eine Frage zur Vereinfachung bei der Schreibweise des Pfades.

Muss es immer der komplette Text sein, oder gibt es eine Möglichkeit z.B. den "Besitzer" wegzulassen bzw. noch weiter abzukürzen. Aus meiner Sicht würde das eine Vereinfachung sein, wenn mehrere mit dem gleichen Programm arbeiten. Danke für mögliche Lösungen.
Gruß MB

Code:

Private Sub cmdTele_Click()
    pfadZurVorlage = "C:\Users\Besitzer\Desktop\Word Vorlagen\Telefon.dotx"
    Set obj_Wd = CreateObject("WORD.Application")
    Set obj_Doc = obj_Wd.Documents.Add(Template:=pfadZurVorlage)
    obj_Doc.Windows(1).Visible = True

 

pfadZurVorlage = "C:\Users\" & Environ("USERNAME") &"\Desktop\Word Vorlagen\Telefon.dotx"
Ich bin mal davon ausgegangen mehrerUseer?

 

Danke, werde es bei der nächsten Zusammenkunft der Nutzer vorstellen und testen. Gruß MB

 

Hi,

mit Environ() kannst du alle Systemvariablen abfragen und verwenden. Welche es gibt, kannst du z.B. in der Eingabeaufforderung mit dem Befehl Set prüfen.

pfadZurVorlage = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\DeinWeitererPfad\DeineDatei.dotx"

 

Hallo, bin nochmal da. Ich gehe mal davon aus, dass bei Helmuts Code das Laufwerk und der USER-Name nicht vorgegeben werden müssen. Dies wäre ja noch einfacher. Das habe ich nun mal eingebaut:

Code:

pfadZurVorlage = Environ("HOMEDRIVE") & Environ("HOMEPATH") & " \Word Vorlagen\Telef für Excel.docx"

Wenn ich das nun starte, kommt ein Fehler bei Zeile:

Code:

Set obj_Doc = obj_Wd.Documents.Add(Template:=pfadZurVorlage)

Laufzeitfehler: 5174. Wir konnten ihre Datei nicht finden, wurde sie verschoben umbenannt oder ..... Dies ist aber nicht der Fall, der Pfad ist korrekt.

 

Was steht denn in Homedrive und Homepath? Das kannst du in der Eingabeaufforderung mit Set prüfen.
Welchen Wert hat PfadZurVorlage?

 

Danke, aber habe etwas im Netz geschaut. Kann das aber nicht umsetzen. Homedrive wäre z. B. das Laufwerk? Wie würde es angesprochen/geschrieben? Wie würde dies bei Homepath aussehen? Ich komme da ohne Unterstützung leider nicht weiter. Hajos Vorschlag den USER betreffend funktioniert. Gruß MB

 

Ist es so schwer auf die Lupe unten links zu klicken, „eingabeaufforderung“ zu tippen und in dem Fenster dann Set einzugeben? Dann kannst du doch sehen, dass Homedrive vermutlich C: ist und Homepath dürfte \Users\DeinName sein.

 

Danke, das war bereits kontrolliert und korrekt. Vorsichtig vermutet, ist vielleicht ein Fehler in der Code-Textzeile?
Aber wahrscheinlich liegt es im kompletten Code, der vielleicht nicht kompatibel. Gruß MB

 

Nun ja, im Eröffnungspost schreibst du

später dann

Was nun mal "C:\Users\Besitzer\Word Vorlagen\Telef für Excel.docx" wäre. Es fehlt also noch "\Desktop" nach dem Besitzer...

 

Danke, so funktioniert es natürlich. Sorry, weis im Einzelnen nicht, was mit den Begriffen Environ HOMEDRIVE, HOMEPATH und "USERNAME" alles abgegriffen/abgefragt wird. Daher fehlte bei mir auch noch "\Desktop". Gruß MB

 

Dabei hatte ich dir mindestens 2x geschrieben, wie du
a) sehen kannst welche Environ-Variablen dein System kennt und
b) gleichzeitig auch deren Inhalt siehst.

Aber ich schreibe es gerne noch ein drittes Mal: In der Eingabeaufforderung musst du nur Set eingeben. Wenn du mit dieser Anweisung nicht klar kommst, dann frag halt nach..

Abgesehen davon, kannst du ach en Inhalt der Variablen im Debugger überprüfen. Es gehört zum Grundwissen jedes halbwegs ernsthaften VBA-Programmierers, wie man den Inhalt von Variablen feststellen kann. Wenn man dises Wissen nicht hat, dann wird es allerhöchste Zeit für einen Einführungskurs.

 

Einen schönen Sonntag erstmal.
Komme erst jetzt dazu nochmal aktiv zu werden. Beim Debugger erscheint der Pfad im "Klartext". Was mich noch interessiert, wäre die Frage: Kann man die Position "Desktop" ebenfalls mit einer Variablen ansteuern?
Habe mein Set-Ergebnis hier mal als Anhang hochgeladen. Gruß MB

 

warum TXT und nicht Excel.
Warum sollte ich Zeit investieren und Deine Datei nachgbauen. Die Zeitjhat schon jemand investiert.

 

Mensch Hajo, wie wäre es wenn du deine eigenen Textbausteine wenigstens ab und zu selbst beachten würdest? Erst lesen, dann Posten und nicht reflexartig handeln, nur weil eine TXT-Datei hochgeladen wird!

Motor-Bastler: wieso sollt man „Dektop“ in eine Variable packen? Ist doch immer gleich…