Registriert seit: 01.02.2017
Version(en): 13
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
Registriert seit: 04.11.2014
Version(en): Office 365 Beta
Hi,
teste mal mit Environ("Username"), also
Public Const Bildpfad = "C:\Users\" & Environ("Username") &"\OneDrive - Firma\Dokumente\"
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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)
Registriert seit: 17.04.2019
Version(en): M$ 365 AfE v2009 / Office2013
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
Registriert seit: 04.11.2014
Version(en): Office 365 Beta
Hi Ralf,
das Const hatte ich in der Tat überlesen. Danke für den Hinweis!