| 投稿日 | ： 2003/03/12(Wed) 23:41 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: VB2.0で指定したパスにあるExcelブックの操作 |
> 実現したいことは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)]"