同一フォルダ内の別ブックからシートをコピーするには？ 「集計」フォルダ内に「項目別集計.xlms」と

同一フォルダ内の別ブックからシートをコピーするには？

「集計」フォルダ内に「項目別集計.xlms」と「Format.xlsx」があります。
「項目別集計.xlms」を開いた状態で左から３番目に「Format.xlsx」のシート名「検索」をコピーするのに手こずっています。
集計フォルダは作業するPCが特定できないためファイルパスを指定できません。
どのような記述をすれば良いかご教授いただけませんでしょうか。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/03/11 18:26

項目別集計.xlsmにマクロを格納するということであってますか。

そうであれば、Format.xlsxの完全パスは
ThisWorkbook.Path & "\" & "Format.xlsx"
で求まります。
例
Dim bookpath as String
bookpath = ThisWorkbook.Path & "\" & "Format.xlsx"
Workbooks.open bookpath
でオープンできます。

この回答へのお礼

ありがとうございます。学ぶことが多くて楽しくなってきました。

お礼日時：2021/03/12 00:44

No.2 回答者： めぐみん_ 回答日時： 2021/03/11 18:27

＞集計フォルダは作業するPCが特定できないため

ここって
『作業するＰＣのどこにフォルダを作成しているのかは作業者任せなの』
と言う事とは違うのですか？

取り敢えず『項目別集計Ｂｏｏｋ』と同一のフォルダには必ずあるってなら、このＢｏｏｋのファイルパスを利用するとかですかね。

https://tonari-it.com/excel-vba-thisworkbook-path/

この回答へのお礼

リンク参考になりました。ありがとうございます。

お礼日時：2021/03/12 00:43