デスクトップに名前を付けて保存する

デスクトップに名前を付けて保存する

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