map aanmaken met verschillende users foutmelding in macro code

[westra77]

via onderstaande code heb ik geprobeerd via functie de usernaam te achterhalen. Deze is nl verschillend. Daarna moet de macro controleren of de map al bestaat, is dit niet het geval dan moet deze aangemaakt worden.

onderstaande geeft een foutmelding:compileerfout
kan iemand mij helpen uit te leggen wat ik fout doe?
alvast bedankt

Option Explicit
Function gebruikersnaam()
gebruikersnaam = Environ("username")
End Function
   

 Dim naam3 As String
    naam3 = Sheets("werkblad").Range("a249").Text

 Dim myfolder As String
     
   myfolder = "C:\Users\" &naam3& " \Documents\benchmark\data\"
If Dir(myfolder, vbDirectory) = ""  Then
MkDir myfolder
End If

in cel a249 wordt de username via de formule =gebruikersnaam() opgevraagt

 

[danvie]

Ziet ernaar uit dat je meerdere directories in 1 keer wilt aanmaken (na user komen er nog een paar).

op de site van pearson (http://www.cpearson.com/Excel/MakeDirMulti.aspx) staat een script voor het aanmaken van meerdere directories. Ik heb dit zelf gebruikt voor het verplaatsen van een heleboel bestanden met excel (ook een topic binnen helpmij).

Volgens mij kun je met dit script je macro verder uitwerken waarna het zou moeten werken.

succes.

 

[Roncancio]

Een aantal dingen zijn niet goed:
- Tussen naam3 en het &-teken moet een spatie.
- Je kunt geen Dim e.d. plaatsen achter de End-Function.

Je code kan een stuk korter.

Option Explicit
Function gebruikersnaam()
Dim myfolder As String
    gebruikersnaam = Environ("username")
    myfolder = "C:\Users\" & gebruikersnaam & " \Documents\benchmark\data\"
    If Dir(myfolder, vbDirectory) = "" Then
        MkDir myfolder
    End If
End Function

Met vriendelijke groet,


Roncancio