|
▼Kein さん:
>ブックを開かずに値を引っ張る方法は、過去ログにもたくさんあるように
>リンクを使うのが一般的です。他には DAO とか Excel4マクロ関数 を使う手も
>ありますが、いずれにしても
>>対象となるファイル数が、多ければ200以上
>これをループ処理するなら、シート名が全て同じになっていないととても面倒です。
>その点はどうでしょーか ? それから、リンク先のセル範囲はどこにするか ?
>という点も、たくさんのブックを対象にするのだから重要な問題ですね。
DAOとかExcel4マクロ関数…は、
私の能力の限界を超えてしまいそうなので避けたいです。
シート名はすべて「TOTAL」です。
過去ログにあった応用で、以下のテストをしてみたら値が入ってきました!
----------
Sub TEST1()
Dim IDcode As String
Dim NOWrow As Byte
IDcode = "○○"
NOWrow = 12
With ThisWorkbook.Worksheets("テスト1").Range("A4")
.Formula = "='C:\Documents and Settings\(中略)\[" & IDcode & ".xls]TOTAL'!D" & NOWrow
.Value = .Value
End With
End Sub
----------
私のつたない知識では、これをE〜Z列までループさせて、
さらに、ファイル名をループさせて…ということしか思い浮かびません。
もっといい方法がありましたら、ぜひぜひご教授ください。
宜しくお願いします。
|
|