Excel VBA質問箱 IV

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

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


48930 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼Jaka さん:
>VBA上のMatch関数の使い方(エラー処理)はおいておいて、VBA上から他ブックを開かずにMatch関数は使えないと思います。
>閉じたままと言うなら、適当なセルに関数を入れて、その返り値を取得したらどうでしょうか?

がーーーーーーーん…他ブックを開かずにはできないんですね…
それならばVLookup関数で、と思って以下のようにしてみましたが、

Range("A4").Value = Application.WorksheetFunction.VLookup(AAA, Workbooks(nowPATH).Worksheets("TOTAL").Range("C12:C32"), 1, False)

…同様のエラーが出てしまうということは、
やっぱりVLookup関数も他ブックを開かずにはできないんですね。


けっきょく何がしたいのかといえば、
他ブックのC12:C32内に「AAA」があれば、その行のE〜Zまでの値を取得したいのです。
何行目かがわかれば、以下のマクロ(一部省略)でできることは確認できたのですが。

---------------------------------------
Dim nowPATH As String
nowPATH = "C:\Documents and Settings\(中略)\○○.xls"
  
Dim nowFILE As String
nowFILE = Dir(nowPATH)

Workbooks(nowFILE).Worksheets("TOTAL").Range("E" & i & ":Z" & i).Copy
ThisWorkbook.Worksheets("テスト1").Range("A2").PasteSpecial Paste:=xlValues
---------------------------------------

対象となるファイル数が、多ければ200以上にもなりかねないので、
ファイルを開かずに処理をしたいと考えてます。
もし何かいい方法をご存知でしたら、ぜひご教授ください。
なにとぞ宜しくお願いします。
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 お礼

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