Opgelost Environ("Username")

Dit topic is als opgelost gemarkeerd

trainers

Verenigingslid
Lid geworden
8 feb 2012
Berichten
172
Hoe vervang ik ABC door Environ("Username")?

Dit werkt:
Code:
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
 
Maak er dit van:
Code:
ActiveWorkbook.SaveAs Environ("Userprofile") & "\Desktop\XYZ_TEMP.xlsx", 52
 
Oeps!
Dat moet niet 52 zijn maar 51.
Code:
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Environ("Userprofile") & "\Desktop\XYZ_TEMP.xlsx", 51
Application.DisplayAlerts = True
Slip of the finger ;)
 
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
 
Code:
Sub Test()
    MsgBox Environ("username") & vbCrLf & Environ("userprofile") & vbCrLf & xlOpenXMLWorkbook
End Sub
 
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.
 
Laatst bewerkt:
Terug
Bovenaan Onderaan