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

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

スポンサーリンク

スマホのみ下に表示