ファイル名に次の日の日付を付けてデスクトップに保存したい場合

投稿者 : クロまめ     投稿日時 : 2024/07/19(Fri) 15:19:26     OS : Windows 10     EXCEL : 未指定

---

初歩的な質問で申し訳ございません。
売上0720（今日が7/19として）の様に次の日をファイル名に付ける場合ですが、 デスクトップに保存したい場合どうすれば良いのでしょうか。
下記のコードではファイルは保存できるのですが保存したファイルが行方不明になってしまいます・・

Dim filename As String
filename = "売上" + Format(Date + 1, "mmdd")
ActiveWorkbook.SaveAs filename:=ThisWorkbook.Path & "\" & filename, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

投稿者 : さんこう     投稿日時 : 2024/07/19(Fri) 15:43:50

---

参考になれば。

＜vba デスクトップに保存＞
https://www.google.com/search?q=vba+%E3%83%87%E3%82%B9%E3%82%AF%E3%83%88%E3%83%83%E3%83%97%E3%81%AB%E4%BF%9D%E5%AD%98

投稿者 : クロまめ     投稿日時 : 2024/07/19(Fri) 16:14:34

---

■[返信 1] さんこうさん（2024-07-19 15:43:50）の記事
＞ 参考になれば。
＞
＞ ＜vba デスクトップに保存＞
＞ https://www.google.com/search?q=vba+%E3%83%87%E3%82%B9%E3%82%AF%E3%83%88%E3%83%83%E3%83%97%E3%81%AB%E4%BF%9D%E5%AD%98
＞
ご返答ありがとうございます
こちらを見てもできませんでした。

投稿者 : てらてら     投稿日時 : 2024/07/20(Sat) 06:06:58

---

こんにちは。

>下記のコードではファイルは保存できるのですが保存したファイルが行方不明になってしまいます・・
ThisWorkbook.Path を指定しているので、プログラムを書いたブックと同じフォルダに保存されているはずです。

> デスクトップに保存したい場合どうすれば良いのでしょうか。

https://webdesign-programming.com/vba-get-desktop-path/

ここに良いサンプルがあるので、ThisWorkbook.Path をデスクトップのパスに差し替えればOK.


ただ、問題なのは xlsm を xlsx で保存しようとしている点。
ThisWorkbook を保存してから、警告をキャンセルして保存しないと上手くいかないでしょう。

投稿者 : クロまめ     投稿日時 : 2024/07/20(Sat) 12:58:35

---

■[返信 3] てらてらさん（2024-07-20 06:06:58）の記事

ご返答ありがとうございました。

説明不足で申し訳ないです。

パスを入力し自分のデスクトップに保存することはできたのですが、

他のユーザーが異なるPCで使用した際も、そのデスクトップのパスを取得し、
指定したファイル名として保存したいです。

投稿者 : クロまめ     投稿日時 : 2024/07/20(Sat) 13:50:38

---

自己解決できました！