Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで

Excelのマクロについて教えてください。
下記のマクロを実行すると
別ブックに指定セル値をコピーできます
このマクロだとコピー先のフォルダを指定してます
Workbooks.Open "C:\Users\160931\Desktop\テスト\
が
この部分を
マクロを設定しているブックと同じフォルダ内
ThisWorkbook.Path
にあるファイルを指定出来る
方法を教えてください。
よろしくお願い致します
現状のマクロ
Sub 新行政報告にコピー()

'コピー先のファイルを開く
Workbooks.Open "C:\Users\160931\Desktop\テスト\【連動版】行政報告チェックリスト（戸建て）.xlsm"

'Book1の値をコピー
ThisWorkbook.Sheets("1").Range("F10").Copy

'Book2に値貼り付け
Workbooks("【連動版】行政報告チェックリスト（戸建て）.xlsm").Sheets("建築物（確認申請）（第1号様式）").Range("C1").PasteSpecial Paste:=xlPasteValues
Workbooks("【連動版】行政報告チェックリスト（戸建て）.xlsm").Save
Workbooks("【連動版】行政報告チェックリスト（戸建て）.xlsm").Close


End Sub

以上となります。
宜しくお願い致します。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/04/06 09:10

Workbooks.Open "C:\Users\160931\Desktop\テスト\【連動版】行政報告チェックリスト（戸建て）.xlsm"

を

Workbooks.Open ThisWorkbook.Path & "\【連動版】行政報告チェックリスト（戸建て）.xlsm"

にしてください。（こちらでは動作確認していません）

この回答へのお礼

回答ありがとうございます
早速試させて頂きます

お礼日時：2024/04/06 09:24