エクセルのセルの値を参照するには？

解決

○ぞう 2004-01-19 19:32:38 No: 111385

既に開いているエクセルのあるシートのセル値をＶＢのデータとして使用したいのですが、初心者でよく分かりません。教えて頂けないでしょうか？

岡田之仁 2004-01-19 20:02:34 No: 111386

過去、幾度となくエクセルのシートやセルの参照の件が
投稿されていますが、その内容では不十分なのでしょう
か？

ひとつ・・・

既に開いているエクセルのシートとありますが、その
場合は、セルにDDEの設定が無いと無理なような・・・

開いていないシートのセルなら、過去、投稿されてい
る内容をご参照下さい。

ご検討下さい。

以上。

Say 2004-01-19 22:31:24 No: 111387

ヘルプでGetObjectやLinkItemの使用例を見ると幸せになれるかもしれません。

○ぞう 2004-01-20 20:39:05 No: 111388

まだ、幸せになれません。
こんな感じなのかの作ってみてもうまく動きませんでした。
教えて頂けませんでしょうか？
Dim Excel1     As Workbook
Dim FileName1  As String
Dim SheetName1 As String
Dim CellName1  As String
Dim Value1     As Variant
FileName1 = "K:\Anaテスト.xls"
SheetName1 = "アナログ"
CellName1 = "M41"
Set myExcel = GetObject(FileName1, "Excel.Sheet")
Set Value1 = myExcel.Worksheets(SheetName1).Range(CellName1).Value
Set Excel1 = Nothing

特攻隊長まるるう 2004-01-20 22:02:54 No: 111389

とりあえず
＞Set Value1 = myExcel.Worksheets(SheetName1).Range(CellName1).Value
の Set 削除してみて？

○ぞう 2004-01-20 22:23:31 No: 111390

みなさん、ありがとうございます。
Setを外してできました。
幸せになりました。
今後ともよろしくお願いいたします。