Как установить дополнительную рабочую папку на рабочем столе?

Question

Я хочу сохранить дополнительную книгу на рабочем столе.

Но следует быть уверенным в том, что множество учетных записей пользователей для компьютеров моей компании. Эта книга должна быть подходящей для всех пользователей и храниться на рабочем столе учетной записи пользователя.

Для конкретности

мой рабочий стол местоположение = c:\Users\knd\Desktop Питер рабочего стола место = c:\Users\peterd\Desktop

Можно ли это сделать?

strFileName = "c:\Users\(username)\Desktop" 

wb.SaveAs strFileName 

Answer 1

Да, вы должны использовать команду:

Environ("Username") 

Попробуйте код ниже:

strFileName = "c:\Users\" & Environ("Username") & "\Desktop" 

Answer 2

Вы можете использовать WScript.Shell, чтобы получить путь рабочего стола.

Function getDeskTopPath() As String 
    Dim oShell As Object 
    Set oShell = CreateObject("Wscript.Shell") 
    getDeskTopPath = oShell.SpecialFolders("Desktop") 
    Set oShell = Nothing 
End Function 

Ссылка: WshShell.SpecialFolders

Дополнительные специальные папки

AllUsersDesktop 
    AllUsersStartMenu 
    AllUsersPrograms 
    AllUsersStartup 
    Desktop 
    Favorites 
    Fonts 
    MyDocuments 
    NetHood 
    PrintHood 
    Programs 
    Recent 
    SendTo 
    StartMenu 
    Startup 
    Templates