VBA Excelファイルの保存先を変更したときのコピペについて

VBAについて質問です。
定期的にBook1からBook2へコピペする作業があるのですがBook1が現在デスクトップにあります。
これを他の場所（例えばドキュメント）に保存した際にもコピペ出来るようにしたいのですが以下のどの部分にどのように追加すれば良いのでしょうか。
現在以下のようになっています。

Sub 助()
' 助 Macro
Dim FilePath As String
FilePath = ThisWorkbook.Path
Workbooks.Open FilePath & "Book1.xlsx"
Workbooks("Book1.xlsx").Sheets(1).Range("A1:J13").Copy _
Workbooks("Book2.xlsm").Worksheets("sheet１").Range("A1")
Workbooks("Book1.xlsx").Close savechanges:=False
End Sub

宜しくお願いします。

No.1 回答者： fujillin 回答日時： 2023/11/27 17:17

こんばんは

＞これを他の場所に保存した際にもコピペ出来るようにしたいのですが～～
「他の場所」というのが固定の場所なら
＞FilePath = ThisWorkbook.Path
の右辺のパスを指定のディレクトリになるようにしておけば良いです。
例えば
　FilePath = "C:\Users\hoge\Desktop\"
のような感じです。


どこに保存するのか不定の場合は、ファイルダイアログを表示してユーザーに指定させるとかでしょうか。
http://officetanaka.net/excel/vba/tips/tips154.htm

この回答へのお礼

ありがとうございました。助かりました。

お礼日時：2023/11/27 22:05