%username% in Pfad einbinden
#1
Hallo,
habe eine Excel-VBA Anwendung. Dort wird in ein Pfad definiert:

Public Const Bildpfad = "C:\Users\%username%\OneDrive - Firma\Dokumente\"

der Pfad funktioniert natürlich so nicht, weil '%username%' so nicht aufgelöst wird. Ich brauche aber diesen Pfad so als Variable.
Weiß jemand, wie ich das Problem löse?

Gruß
Statler
Antworten Top
#2
Hi,

teste mal mit Environ("Username"), also

Public Const Bildpfad = "C:\Users\" & Environ("Username") &"\OneDrive - Firma\Dokumente\"
Antworten Top
#3
Moin!
2 Sachen:
→ Da Environ() eine Funktion ist, ist die Zuweisung an eine Konstante nicht möglich, daher Variable erforderlich
→ Es gibt auch eine Umgebungsvariable "OneDrive"
Code:
Dim Bildpfad$
Bildpfad = Environ("OneDrive") & "\Dokumente\"

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#4
Was es sonst noch gibt?

Code:
Sub getEnviron()

    Dim i As Long: i = 0
    Dim v
   
    On Error GoTo err

    While Not err.Number = 5
       
        i = i + 1
        v = Split(Environ(i), "=")
       
        ActiveSheet.Cells(i, 1).Value = v(0) & "="
        ActiveSheet.Cells(i, 1).Offset(0, 1).Value = v(1)
       
    Wend

err:
End Sub
gruß
Marco
Antworten Top
#5
Hi Ralf,

das Const hatte ich in der Tat überlesen. Danke für den Hinweis!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste