デスクトップに名前を付けて保存する
2017/05/17
デスクトップに名前を付けて保存する
Dim AAA As String
Dim BBB As Variant
Set BBB = CreateObject("WScript.Shell")
----- べんりあつめ。-----
AAA = BBB.SpecialFolders("Desktop") & "\"
ActiveWorkbook.SaveAs AAA & "test.xlsx"
Set BBB = Nothing