Thread: cannot save a workbook to the desktop of any user

Maybe:

ActiveWorkbook.SaveAs FileName:="C:\Users\" & _
        Application.UserName & _
        "\Desktop\Test.xlsx", _
                FileFormat:=xlWorkbookDefault, CreateBackup:=False

Regards

sub snb()
    ActiveWorkbook.SaveAs CreateObject("wscript.shell").specialfolders("desktop") & "\Test.xlsx", xlWorkbookDefault
end sub

Sorry, I was making the naive assumption that the user name and the application user name were the same. Clearly, not ;-)

If you need the logged in user name you can get it with the following code ... but that is just a little longer than snb's code (why is that not a surprise)

Regards

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Function UserNameWindows() As String
    
    Dim lngLen As Long
    Dim strBuffer As String
    
    Const dhcMaxUserName = 255
    
    strBuffer = Space(dhcMaxUserName)
    lngLen = dhcMaxUserName
    If CBool(GetUserName(strBuffer, lngLen)) Then
        UserNameWindows = Left$(strBuffer, lngLen - 1)
    Else
        UserNameWindows = ""
    End If
End Function

Sub test()

ActiveWorkbook.SaveAs Filename:="C:\Users\" & _
        UserNameWindows & _
        "\Desktop\Test.xlsm", _
                FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

@TMS

Are you familiar with:

environ("username")

and

createobject("wscript.network").username

@snb: the first one yes, the second one, no.

I learned and used the Function GetUserName method a long time ago and tend to resort to "what I know". As ever, good to have some options.

Thank you for the reminder and the lesson ;-)

Regards

@TMS

You're welcome.