Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48922 / 76732 ←次へ | 前へ→

【32736】Re:別フォルダで他ブックの値を取得
質問  わさび  - 05/12/21(水) 14:18 -

引用なし
パスワード
   ▼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列までループさせて、
さらに、ファイル名をループさせて…ということしか思い浮かびません。
もっといい方法がありましたら、ぜひぜひご教授ください。
宜しくお願いします。
0 hits

【32721】別フォルダのブックをMatch関数で わさび 05/12/21(水) 12:01 質問
【32722】Re:別フォルダのブックをMatch関数で Jaka 05/12/21(水) 12:12 発言
【32728】別フォルダで他ブックの値を取得 わさび 05/12/21(水) 13:27 質問
【32730】Re:別フォルダで他ブックの値を取得 Kein 05/12/21(水) 13:39 発言
【32736】Re:別フォルダで他ブックの値を取得 わさび 05/12/21(水) 14:18 質問
【32737】Re:別フォルダで他ブックの値を取得 わさび 05/12/21(水) 14:22 質問
【32741】Re:別フォルダで他ブックの値を取得 Kein 05/12/21(水) 14:42 回答
【32744】Re:別フォルダで他ブックの値を取得 わさび 05/12/21(水) 15:15 質問
【32749】Re:別フォルダで他ブックの値を取得 Kein 05/12/21(水) 16:23 回答
【32766】Re:別フォルダで他ブックの値を取得 わさび 05/12/21(水) 20:48 お礼
【32768】Re:別フォルダで他ブックの値を取得 わさび 05/12/21(水) 21:30 質問
【32769】Re:別フォルダで他ブックの値を取得 Kein 05/12/21(水) 21:48 発言
【32781】Re:別フォルダで他ブックの値を取得 わさび 05/12/22(木) 8:20 お礼

48922 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free