---

Schönen guten Abend alle zusammen,

ich habe eine Frage bezüglich des Datei-Pfades. Ich habe ein Skript aufgenommen, indem eine DesignTabelle automatisch erstellt wird. Diese wählt eine Tabelle aus dem bestimmten Pfad aus.

Set designTable1 = relations1.CreateDesignTable("DesignTable.1", "DesignTable created by X 23.08.2018", False, "C:\Users\Acer\Desktop\AKTUELLSTE\Tabelle.xlsm")

Das Problem an der ganzen Sache ist: Das Skript soll an jedem PC funktionieren, dementsprechend suche ich eine Möglichkeit beim Dateipfad den Benutzernamen zu umgehen. Kennt ihr da eine Möglichkeit?

Ich habe schon viel recherchier und gesucht in diesem Forum leider noch nichts gefunden.
Vielen Dank.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Willkommen im Forum.
Hier findest du wie du an den Usernamen kommst.
Aber warum den Desktop zumüllen?
Wäre es nicht besser die Tabelle im gleichen Verzeichnis wie das Part/Product abzulegen. Oder den User aufzufordern ein Verzeichnis einzugeben bzw auszuwählen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey,
Danke erstmal für die Antwort und die nette Aufnahme.

Die Tabelle und das Part/Product befinden sich bei mir immer im selben Ordner. Der Code war nur ein Beispiel.

Das Auslesen vom Usernamen und aufrufen hat geklappt.

Das Skript sucht dann per Pfad nach der Datei. Muss der Code dann "C:\Users\uservar\Desktop\Tabelle.xlsm") lauten ?

Besten Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Nein. Du musst den String zusammensetzen.
Dir fehlen offenbar einige Grundlagen zu VB(A).
Bitte arbeite dich erst allgemein darin ein.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey,

danke für nettgemeinten Tipp.

Ich habe den Pfad als String zusammengesetzt

Ort = "C:\" & uservar & "\Desktop\AKTUELLSTE\Tabelle.xlsm"

Set designTable1 = relations1.CreateDesignTable("DesignTable.1", "DesignTable created by X 23.08.2018", False,Ort)

Dabei habe ich schon uservar vorher als String definiert, dennoch klappt das ganze nicht.

Schönen Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Lass dir mal den String Ort per MsgBox ausgeben.
Fehlt da nicht ein "users"?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey,

ach verdammt. Genau da lag der Fehler.Users fehlte.
Nun funktioniert alles. Vielen lieben Danke für die Hilfe.

Besten Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP