Excel VBA質問箱 IV

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

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


7707 / 13644 ツリー ←次へ | 前へ→

【37368】他ブックのシートを参照したいのですが… あっこ 06/5/1(月) 23:53 質問[未読]
【37369】Re:他ブックのシートを参照したいのですが… かみちゃん 06/5/2(火) 0:06 回答[未読]
【37370】Re:他ブックのシートを参照したいのですが… あっこ 06/5/2(火) 3:21 質問[未読]
【37372】Re:他ブックのシートを参照したいのですが… かみちゃん 06/5/2(火) 6:23 発言[未読]

【37368】他ブックのシートを参照したいのですが…
質問  あっこ  - 06/5/1(月) 23:53 -

引用なし
パスワード
   初めまして。
2つのExcelファイルを使って作業がしたいのですが、マクロの書き方が分かりません。
ファイルが1つの時は、
Set TestSheet = Sheets("Sheet1")
で出来ました。
Book2のSheet1のセルの値を参照したいのですが、どうすれば良いのでしょうか?
どなたか教えて下さい。お願いします。

【37369】Re:他ブックのシートを参照したいのです...
回答  かみちゃん  - 06/5/2(火) 0:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Book2のSheet1のセルの値を参照したいのですが、どうすれば良いのでしょうか?

 MsgBox Workbooks("Book2.xls").Sheets("Sheet1").Range("A1").Value
でできます。または、
 Dim TestSheet2 As Worksheet
 Set TestSheet2 = Workbooks("Book2.xls").Sheets("Sheet1")
 MsgBox TestSheet2.Range("A1").Value
でもできます。

【37370】Re:他ブックのシートを参照したいのです...
質問  あっこ  - 06/5/2(火) 3:21 -

引用なし
パスワード
   お早いお返事ありがとうございます。
教えてくださった通りにしてみたのですが、実行したら
「インデックスが有効範囲にありません」とエラーが出てしまいます><
これは何故なんでしょうか・・・?

【37372】Re:他ブックのシートを参照したいのです...
発言  かみちゃん  - 06/5/2(火) 6:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>「インデックスが有効範囲にありません」とエラーが出てしまいます><

ごめんなさい。
提示したコードでは、値を参照しようとするブックは、開いておく必要があります。
ブックを開くことなく参照したいということでしょうか?
また、開きたくない理由は何でしょうか?

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