ファイル＜ブック＞を開かずにセルの値を読み込む。

まだテスト程度しか試していない為未知数ですが、
表の構成によりとても役に立ったマクロです。

以前から勉強させて頂いていますが、またお世話になりました。
http://officetanaka.net/excel/vba/tips/tips28.htm

Sub Sample2()
Dim i As Long
For i = 1 To 20
Cells(i, 1) = ExecuteExcel4Macro("'C:\[Book1.xls]Sheet1'!R" & i & "C1")
Next i
End Sub

問題点は範囲を一気に読み込めないらしい事と、
空白の時には“０”が代入される問題点があります。

他にも探索していたのですが、上記の形式が
多いです。範囲を一気に取得できるコードが
あればまた掲載したいと思います。