Environ("Username") +Zusatz
05.10.2006 20:58:19
Wolfgang
mit untenstehendem -auszugsweisen- Code werden Daten aus einer Textdatei unter dem angegebenen Pfad in eine Exceltabelle importiert. Im Rahmen eines Netzwerkes liegt die Datei auf jeden Rechner unter C: und Username; Nun kann es neuerdings passieren, dass der Username noch einen Zusatz erhält (warum auch immer?), z.B. MüllerW.ABC (der Zusatz ab dem Punkt beginnend). Ist es möglich den Code so zu verändern, dass sowohl der Username für sich, als auch mit dem Zusatz (vielleicht über Jokerzeichen?) gefunden wird bzw. akzeptiert wird ? Nach meinen bisherigen Recherchen besteht der Zusatz immer aus dem Punkt und 3 Buchstaben. Für jede Hilfestellung Danke ich schon jetzt wieder.
Herzliche Grüße
Wolfgang
Sub Username()
Sheets("Daten").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\" & Environ("Username") & "\Lokale Einstellungen\Temp", Destination:=Range("A1"))
ChDrive "C"
.Name = "Mustertext"
'usw.
End Sub
Anzeige