%username% in Pfad einbinden

[Statler]

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

[{Boris}]

Hi,

teste mal mit Environ("Username"), also

Public Const Bildpfad = "C:\Users\" & Environ("Username") &"\OneDrive - Firma\Dokumente\"

[RPP63]

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

[Mase]

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

[{Boris}]

Hi Ralf,

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