VBA 他のブックのセル値がウィンドウに表示されない

Question

表題の通りです。

ソース

    Dim path As String         '// 集計ファイルパス
    Dim wb  As Workbook        '// ワークブック
    Dim index As Integer       '// 集計シートインデクス
    
    path = Worksheets(1).Cells(2, 1)
    index = Worksheets(1).Cells(2, 2)
    
    '集計情報
    Dim dt_cnt As Integer
    
    
    dt_cnt = Worksheets(1).Cells(2, 3)
    
    Debug.Print index // 3
    Debug.Print dt_cnt // 45
    Debug.Print Worksheets(1).Cells(2, 3) // 45

    Set wb = Workbooks.Open(Filename:=path, UpdateLinks:=0, IgnoreReadOnlyRecommended:=True)
    Debug.Print wb.Worksheets(index).Cells(13, 27)

変数
path ：別EXCELブックのパス
indes : パスで指定されているブックのシートインデックス
dt_cnt : 特に関係ない値です。

「index」、「「dt_cnt」、「Worksheets(1).Cells(2, 3)」の値は問題なくウィンドウに表示されます。
ただし、別ブックを参照している「wb.Worksheets(index).Cells(13, 27)」のみ表示されません。

何か指定が必要でしょうか。ちなみに別ブック自体は開けているので問題ないと思うのですが。

Comments

[meg_]

エラーは出ていますか？

[Chandler_Bing]

エラーは出ていません。追記にも記載しますが、集計したいブックのシートをVBAが書かれているブックにコピーすると、値が表示されました。別ブックの値はイミディエイトに表示できないなどというルールがあるのですか？？？

[meg_]

同じようなコードで試しましたが、イミディエイトウィンドウにちゃんと出力されました。

[Chandler_Bing]

meg_様のソースを拝見してもいいですか。

[meg_]

質問者さんのコードの抜粋ですよ。

Sub a()
Dim path As String
Dim index As Integer
Dim wb As Workbook

path = Worksheets(1).Cells(2, 1) #あるExcelブックの絶対パス
index = Worksheets(1).Cells(2, 2) #1

Set wb = Workbooks.Open(Filename:=path, UpdateLinks:=0,　IgnoreReadOnlyRecommended:=True)
Debug.Print wb.Worksheets(index).Cells(13, 27)

End Sub

[ttyp03]

別ブックは開けている、エラーは出ていない、のであれば参照先のセルが空なんじゃないでしょうか？という安易な推測。
最終行にDebug.Print "TEST"など入れたらこれは出ますか？

[Chandler_Bing]

お疲れ様です。テストは表示されますが、他ブックを参照してるのはダメでした。

[ttyp03]

参照先のセルが空なんじゃないですか？

Answer 1

ただし、別ブックを参照している「wb.Worksheets(index).Cells(13, 27)」のみ表示されません。

セルの中身が空白か、空白に見える文字なのでは？

Debug.Print wb.Worksheets(index).Cells(13, 27)

with wb.Worksheets(index).Cells(13, 27)
    Debug.Print .address(,,,true)
    Debug.Print .value
    Debug.Print len(.value)
    Debug.Print isempty(.value)
end With

みたいな感じで思いつくことを色々やってみては？

Answer 2

・「path」に指定した方のファイルを開いているのみの状態でVBEを開いて、イミディエイトウィンドウで

?Cells(13, 27).value

で何が出てきますか。

・cells（行、列）の指定になりますが、数えて正しい所を参照していますか。あえて別の数の少ないセルを参照してみて、間違いが無いかを確認する事も検討しましょう。

・「Worksheets(index)」ですから、シートのインデックス番号が「1」のシートを参照、で間違いないですか。（インデックス番号とシート名は違います）VBEに出てきますので一度確認してください。
シートを開く

・「path」に指定した方のファイルを開いているのみの状態でVBEを開いて、イミディエイトウィンドウで

?Worksheets(1).Cells(13, 27).value

では何が出てきますか。

小さい部分的な要素から徐々に検証していって、自分の思ったとおりに
出てこない箇所があれば、その部分でトラブっていると思います。

---

・cellsではなくRangeを使ってみるのもありだと思います。
第11回.RangeとCellsの使い方

・Debug.Printで出て来ないなら変数を用意して格納し、ローカルウィンドウで確認するのはどうでしょう。あるいはmsgboxも使えると思います。

実質的な問題としては、参照出来ているのか、取得出来ているのかという部分になると思うので、代替手段を提起してみました。（それで出来たとして、なぜ元の方で出来ないのかという問題は残りますが）

問題点をズバリ指摘の回答とはならないですが。