VBA 別シートのセルから、文字列を参照するには？

解決済

質問者：xcode_15
質問日時：2010/11/25 09:49
回答数：3件

Excel VBAに於いて
同ＢＯＯＫのＳｈｅｅｔ１から、Ｓｈｅｅｔ２の文字列を変数に入れよとするとエラーになります。
何故でしょうか。
また、その対処法を、御教示ください。

Dim objWBK As Workbook
Dim objSH As Worksheet
Set objWBK = ThisWorkbook
Set objSH = objWBK.Sheet2

Dim cnsFILENAME As String

cnsFILENAME = objSH.Range("a4")　　　　　←　ここで、「オブジェクトは、このプロジェクトでサポートされていません。」と、エラーメッセージが出る。

Ｓｈｅｅｔ２．Ｒａｎｇｅ（”Ａ４”）には、文字列を入れてある。

以上、よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Azzz___
回答日時：2010/11/30 19:05

こんにちは。

Rangeオブジェクトは値を参照するときにはシートがActiveになっていないと
エラーになった記憶があります。

エラーの前に
objSH.Activate

を入れるとどうですか？
はずしてたらすみません。

#もし「ビンゴ」でしたら、Cellsオブジェクトの方が色々勝手が良いです。
objSH.cells(4,2)

- 0
- 件

通報する

この回答へのお礼

連絡が遅れて済みません。

「ビンゴ」でした。
シートを切り替える度に、Activateと指定しないと行けなかったようです。
（面倒ですが・・・）

通報する

お礼日時：2010/12/10 23:49

No.2

回答者： kazne
回答日時：2010/11/25 15:27

多分　問題なく変数に値を渡せるはずです。

きっと、それ以外のところで記述が間違ってると思いますよ。

まさかと思いますが、Range("")内のセル名(アドレス)に全角使ってませんよね？

Range("Ａ４")

とか・・・

あと、基本的には

cnsFILENAME = objSH.Range("a4").Value と記述し

通貨型や日付型を数値型として扱うっていうなら

cnsFILENAME = objSH.Range("a4").Value2

にしておいた方が、明示的になるので私も推奨します。

- 0
- 件

通報する

No.1

回答者： himajin100000
回答日時：2010/11/25 10:23

いや、エラー出てるのは

>Set objSH = objWBK.Sheet2
こっちでしょ。
Set objSH = objWBK.Sheets("Sheet2")とかならわかるんですけど。

#Setって書いてないから確かに文字列入るんだけど、個人的にはあまりデフォルトプロパティとか暗黙の型変換って好きじゃないので、

cnsFILENAME = ObjSH.Range("a4").value2
あたりまで書きたがると思う