Редактировать макрос для создания папки на рабочем столе для любого пользователя

Question

У меня есть таблица с кнопкой сохранения на каждом листе. Кнопки в настоящее время сохраняют листы на рабочем столе любого пользователя в виде файла PDF. Меня спросили, могу ли я сделать кнопку создать новую папку под названием «BSInHouseAssets» на рабочем столе при этом. Я предполагаю, что мы будем использовать MKdir в какой-то момент ... но мне нужна помощь. Вот текущая часть макроса, который сохраняет файл.

Function SpecialFolderPath() As String 

    Dim objWSHShell As Object 
    Dim strSpecialFolderPath 

    'On Error GoTo ErrorHandler 
    ' Create a shell object 
    Set objWSHShell = CreateObject("WScript.Shell") 
    ' Find out the path to the passed special folder, 
    ' just change the "Desktop" for one of the other options 
    SpecialFolderPath = objWSHShell.SpecialFolders("desktop") 
    ' Clean up 
    Set objWSHShell = Nothing 
    Exit Function 
ErrorHandler: 

    MsgBox "Error finding " & strSpecialFolder, vbCritical + vbOKOnly, "Error" 
End Function 

Answer 1

strPath = "C:\Users\" & Environ("UserName") & "\Desktop\" 
strFolderName = "test1" 
strFullPath = strPath & strFolderName & "\" 

    If Dir(strPath & strFolderName, vbDirectory) = "" Then 
    MkDir strFullPath 
    End If 

ActiveWorkbook.SaveAs Filename:=strFullPath & "workbookname1", _ 
FileFormat:=xlOpenXMLWorkbookMacroEnabled 

Answer 2

mkdir CreateObject("wscript.shell").specialfolders("desktop") & "\MyFolder" 

должен сделать трюк