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

解決

○ぞう 2004-01-19 10:32:38 No: 111385 IP: [192.*.*.*]

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

岡田之仁 2004-01-19 11:02:34 No: 111386 IP: [192.*.*.*]

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

ひとつ・・・

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

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

ご検討下さい。

以上。

編集削除

Say 2004-01-19 13:31:24 No: 111387 IP: [192.*.*.*]

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

編集削除

○ぞう 2004-01-20 11:39:05 No: 111388 IP: [192.*.*.*]

まだ、幸せになれません。
こんな感じなのかの作ってみてもうまく動きませんでした。
教えて頂けませんでしょうか？
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 13:02:54 No: 111389 IP: [192.*.*.*]

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

編集削除

○ぞう 2004-01-20 13:23:31 No: 111390 IP: [192.*.*.*]

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

編集削除