Сохранение csv на рабочий стол независимо от пользователя

Question

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

Приведенный ниже код делает именно то, что я хочу ... за исключением того, что он сохраняется как PDF, а не как CSV, потому что он использует объект exportasfixedformat.

Я думаю, что мне нужно использовать «сохранить как» для CSV, но я не могу понять, как затем смешать команду «userprofile» для сохранения независимо от имени пользователя.

Private Sub CommandButton1_Click() 

Sub SavePDF()     
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _                   
          Filename:= Environ("USERPROFILE") & "\Desktop\Export.pdf", _        
          OpenAfterPublish:=True 
End Sub  

Answer 1

Это должно работать. Протестировано

Sub SaveCSVtoDesktop()

ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
Application.PathSeparator & "Your File Name" & ".csv", FileFormat:=xlCSV, CreateBackup:=False

End Sub