【マクロ】デスクトップに、今日の日付で保存したいです。

Question

おはようございます。
表題の通り、デスクトップに、今日の日付で保存したいですが、できなくて困っています。
VBA初心者なので、どうかご教授お願い致します。

下記が、今試しているコーデです。
名前はうまく今日の日付になるのですが、ドキュメントに保存されてしまいます。
修正点などございましたら、教えていただきたいです。

Dim Path As String, WSH As Variant
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("Desktop") & ""
ActiveWorkbook.SaveAs Filename:=Format(Date, "yyyymmdd")
Set WSH = Nothing

Answer 1

せっかくデスクトップのパスを取得しているのに使っていないからでは。

ActiveWorkbook.SaveAs Filename:=Path & Format(Date, "yyyymmdd")

もちろんデスクトップのパスが正しく取得できている前提ですが。

Comments

[Gunjirk]

ttyp03さん
いただいたコードでできました！！
どのサイトにも載っていなかったので、助かりました。
昨日に引き続き、ありがとうございます。