Opgelost Environ("Username")

[trainers]

Hoe vervang ik ABC door Environ("Username")?

Dit werkt:

ActiveWorkbook.SaveAs Filename:="C:\Users\ABC\Desktop\XYZ_TEMP.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Zit te puzzelen met wel/niet "" en haakjes en zie het even niet.
Bij voorbaat mijn dank.

Groet,
Trainers

 

[edmoor]

Maak er dit van:

ActiveWorkbook.SaveAs Environ("Userprofile") & "\Desktop\XYZ_TEMP.xlsx", 52

 

[edmoor]

Oeps!
Dat moet niet 52 zijn maar 51.

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Environ("Userprofile") & "\Desktop\XYZ_TEMP.xlsx", 51
Application.DisplayAlerts = True

Slip of the finger

 

[trainers]

Veel dank Edmoor. Jouw code is een stuk compacter. Top.

Ik heb nog wel een paar vragen:
1. Wat is het verschil tussen "Username" en "Userprofile"? Ik gebruik(te) tot nu toe altijd "Username".
2. de 51: is dit in feite hetzelfde als FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False?

Bij voorbaat mijn dank.
Groet,
Trainers

 

[AHulpje]

Sub Test()
    MsgBox Environ("username") & vbCrLf & Environ("userprofile") & vbCrLf & xlOpenXMLWorkbook
End Sub

 

[edmoor]

Username geeft alleen de gebruikersnaam.
Userprofile geeft ook de schijf en directory van die gebruikersnaam.
De 51 is hetzelfde als xlOpenXMLWorkbook.
Ik gebruik positionele parameters in plaats van benoemde parameters.
Als iets standaard een False waarde heeft hoef je dat niet op te geven.

 

[trainers]

Dank jullie wel. Weer wat geleerd.

Groet,
Trainers