同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法

質問

同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法を教えてください。

ファイルが置いてある場所はネットワーク上にあります。

Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls")
という指示をしたのですがエラーが表示されてしまいます。

行いたいことは現在開いているBOOK1.xls（置いてある場所【\\PC2\フォルダ1】でBOOK2.xlsと同じ）
にBOOK2.xlsの一部の内容をコピーしたいのです。
ですので同じフォルダ内のBOOK2.xlsという指定があるとできるのかなっと思いました。
そのような指定の仕方があれば教えてください。
また、無いのであれば、他の方法などありましたら教えてください。

↓現在のマクロ

Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls")
Workbooks("BOOK2.xls").Sheets("Sheet1").Range("A1:AP2").copy Destination:=Workbooks("BOOK1.xls").Sheets(1).Range("DQ1" & R)

回答No.1

pkh4989 · ベストアンサー

こんにちは。

以下のように変更してみてください。
Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls")
Workbooks("BOOK2.xls").Sheets("Sheet1").Range("A1:AP2").Copy Destination:=Workbooks("BOOK1.xls").Sheets(1).Range("DQ1" & R)
↓
Dim wPath as String
wPath = Application.ThisWorkbook.Path
Workbooks.Open (wPath & "\BOOK2.xls")
Workbooks("BOOK2.xls").Sheets("Sheet1").Range("A1:AP2").Copy Destination:=Workbooks("BOOK1.xls").Sheets(1).Range("DQ1" & R)

お礼

回答ありがとうございます。
おかけ様で無事に解決いたしました。
また何かありましたらよろしくお願いいたします。