サーバー内のブックを開く際に出る「インデックスが有効範囲にありません。」の回避方法を教えてください。

Question

前提・実現したいこと

共有制限がされているサーバー上で、閲覧権限を持っているフォルダ内のブック（データ元）を開いて、別のシート（コピー先）に値を貼り付けるマクロを作っています。
コピー先のシートはActiveSheetで、自分のパソコンドライブ内にあります。
まずはデータ元を開いて……と思ったら、以下のエラーメッセージが出てうまくデータ元のブックを開くことができず困っています。
どうか、お知恵をお貸しくださいませ。

インデックスが有効範囲にありません。

該当のソースコード

Sub データ元の値をコピー先にコピー()
    Dim i As Long
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = Workbooks("\サーバー（閲覧権限有）\フォルダＡ\フォルダＡ-Ａ_
                  \フォルダＡ-Ａ-Ａ\フォルダＡ-Ａ-Ａ-Ａ\データ元ブック.xlsx")
　　　　　　　　　　↑ここでエラーが出ます。
    Set ws = Worksheets("データ元シート1")
    
        Workbooks.Open wb, UpdateLinks:=0
End Sub

試したこと

正しいブック名の取得（存在しないブック名ではない）
自分のパソコン内での操作は問題なくいけました。

補足情報（FW/ツールのバージョンなど）

Windows2010,Excel2010を使用しています。
変数の定義をするときに、WorkBooksのあとのブック名で上記エラーが出ます。

Comments

[unz.hori]

"_"を使って改行しているようですが、変数名の途中や文字列の途中で改行することはできないようです。

[VBA_beginner]

ご教示誠にありがとうございます。実際のコードは改行なしで書いています。投稿のために見やすくなるよう改行しました。

Answer 1

こうじゃないですかねぇ。
Workbooks("ファイル名")は、オープンしていない状態では通用しないと思います。

Set wb = Workbooks.Open("\サーバー（閲覧権限有）\フォルダＡ\フォルダＡ-Ａ\フォルダＡ-Ａ-Ａ\フォルダＡ-Ａ-Ａ-Ａ\データ元ブック.xlsx")

Comments

[VBA_beginner]

ご教示誠にありがとうございます。一度試してみます。

Answer 2

すでにsousukeさん、TTyp03さんからも回答がありますが、記載いただいたコードには問題が３点あります。

①１命令を次行に継続するための_を文字列指定である"～"の中で行ってしまっており、次行への継続という意味で解釈されていない。
②Workbooks("ファイルパス")では開いていないブックを開くことはできない。
③Workbooks("ファイルパス")では開いているブックの特定もできない。

---

①についてはsousukeさんから指摘がある通りです。
ただ、この状態では実行前に文法エラーとなるはずですので、投稿時の記載ミスではないかと推測しています。

---

②についてはTTyp03さんから指摘がある通りです。
開いていないブックを開く場合はWorkbooks.Open("ファイルパス")を使用します。

---

③については今回は使用しないかもしれませんが、開いているブックを取得する場合はWorkbooks("ブック名")と指定します。
例えば
\サーバー（閲覧権限有）\フォルダＡ\フォルダＡ-Ａ\フォルダＡ-Ａ-Ａ\フォルダＡ-Ａ-Ａ-Ａ\データ元ブック.xlsx
のブックを既に開いている状態であれば、
Set wb = Workbooks("データ元ブック.xlsx")
で対象ブックが取得できます。

フルパス指定してしまうと、やはりブックを見つけられず「インデックスが有効範囲にありません。」と言われてしまうと思います。

参考になれば幸いです。

Comments

[VBA_beginner]

ご教示誠にありがとうござます。
Workbooks.Open("ファイルパス")で一発解決しました。これで開発が進められます。
誠にありがとうございました！

Answer 3

やるとしたらこうですかね

    Set wb = Workbooks("\サーバー（閲覧権限有）\フォルダＡ\フォルダＡ-Ａ" & _
                  "\フォルダＡ-Ａ-Ａ\フォルダＡ-Ａ-Ａ-Ａ\データ元ブック.xlsx")

Comments

[VBA_beginner]

ご教示誠にありがとうございました！実際のコードでは”～”内で改行をしていないので、別の問題のようです。色々試してみます。