いきなりですが、非常に困っています。

とある事情があり、VB2.0で開発をしています。
実現したいことはVB2.0で指定したパス( a:\〜.xls 等)にあるExcelブックを
開き、そのブックの指定したシート( sheet1等 )の指定したセル( R1C1:R1C1等 )
の値を変数に格納する、というVB6.0ならそれ程困難ではない
コードなのですが、いかんせんVB2.0なので、ネットで調べたり
文献で調べたりしてもなかなか載っていません。
ここのサイトのエクセル関係の所のコードもVB2.0には対応してないみたいだし・・・、
正直お手上げです。もし分かる方がいましたら、お願いします。

前提条件　VB2.0 Excel5 WinNT3.5
実現したいこと(例)
1.コマンドボタンを押下すると指定したパスにあるEXCELブックを開く
2.1で開いたEXCELブックの指定したsheetの指定したセルの内容を
　変数に格納する。

> 実現したいことはVB2.0で指定したパス( a:\〜.xls 等)にあるExcelブックを
> 開き、そのブックの指定したシート( sheet1等 )の指定したセル( R1C1:R1C1等 )
> の値を変数に格納する、というVB6.0ならそれ程困難ではない

起動済みのExcelシートに対して、DDEでデータを受け渡ししてやれば、
多分、処理できると思います。

今は、手元に16bit環境が無いので試せていませんが、
確か下記の様な感じでいけたような。。。（もしかしたら動かないかも）

Label1.LinkTopic = "Excel|Sheet1"
Label1.LinkMode = 2 '手動(vbLinkManual)
Label1.LinkExecute "[ACTIVATE(""SHEET1"")]"
Label1.LinkItem = "R1C1"
Label1.Caption = "123456"
Label1.LinkPoke
Label1.LinkItem = "R1C2"
Label1.Caption = "ABCDE"
Label1.LinkPoke
Label1.LinkItem = "R1C3"
Label1.Caption = "2003/03/12"
Label1.LinkPoke
Label1.LinkItem = "R2C1:R3C3"
Label1.Caption = "one" & vbTab & "two" & vbTab & "three" & vbCr & "four" & vbTab & "five" & vbTab & "six"
Label1.LinkPoke
Label1.LinkExecute "[SELECT(""R2C2"")]"
Label1.LinkExecute "[FONT.PROPERTIES(""Arial"",""Bold"",18)]"

>> 開き、そのブックの指定したシート( sheet1等 )の指定したセル( R1C1:R1C1等 )
>> の値を変数に格納する、というVB6.0ならそれ程困難ではない
> 今は、手元に16bit環境が無いので試せていませんが、
> 確か下記の様な感じでいけたような。。。（もしかしたら動かないかも）

あぁっ、質問を読み違えていました。すみません。
Excelに書き込むのではなく、Excelから読み込むのですね。


Label1.LinkTopic = "Excel|Sheet1"
Label1.LinkMode = 2 '手動(vbLinkManual)
Label1.LinkExecute "[ACTIVATE(""SHEET1"")]"
Label1.Caption = ""
Label1.LinkItem = "R1C1"
Label1.LinkRequest
Debug.Print "R1C1="; Label1.Caption
Label1.LinkItem = "R1C2"
Label1.LinkRequest
Debug.Print "R1C2="; Label1.Caption
Label1.LinkItem = "R2C1:R3C3"
Label1.LinkRequest
Debug.Print "R2C1:R3C3="; Label1.Caption

教えていただいたコードをちょこっと変えてうまくいきました。
ありがとうございますっ！！＞魔界の仮面弁士さん