ｴｸｾﾙVBAからIEの制御について教えてください｡下記のようにﾔﾌｵｸの出品終了分の1行目のﾀｲﾄﾙを取得してﾒｯｾｰｼﾞﾎﾞｯｸｽに表示させるようにしたいのですが…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

ｴｸｾﾙVBAからIEの制御について教えてください｡

下記のようにﾔﾌｵｸの出品終了分の1行目のﾀｲﾄﾙを取得してﾒｯｾｰｼﾞﾎﾞｯｸｽに
表示させるようにしたいのですが､★でｴﾗｰがでます｡ｴﾗｰ原因と修正ﾌﾟﾗﾝをお教えください｡

Sub ﾔﾌｵｸ終了分の1行目からﾀｲﾄﾙを取得してみる()

Dim ie As InternetExplorer

Dim txtInput As HTMLInputElement
Dim txtOutput As HTMLInputElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "https://order.auctions.yahoo.co.jp/jp/show/mystatus?select=closed&hasWinner=1"

Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

★ Set txtInput = ie.document.getElementById("left")(0)
MsgBox txtInput.Value

End Sub

★の箇所で
実行時ｴﾗｰ91 ｵﾌﾞｼﾞｪｸﾄ変数またはWith ﾌﾞﾛｯｸ変数が設定されていません｡
とでてしまいます｡

ぜひお教えください｡

ｿｰｽの一部は追記いたします｡

●質問者: 教えてください！
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

● 質問者から

ｿｰｽの一部は追記いたします｡
どこがおかしいでしょうか？
なお､<は､全角に変えて表示しています(うまくﾃｷｽﾄが表示されないためです)

＜td ALIGN="left">送料無料★ｸﾛｺ柄ｼｮﾙﾀﾞｰﾊﾞｯｸﾞ★黒★
＜IMG SRC="/images/icon/premium.gif" WIDTH="62" HEIGHT="15" ALT="ｽﾄｱ" ALIGN="absmiddle">
＜IMG SRC="/images/icon/pstfree.gif" WIDTH="20" HEIGHT="16" ALT="送料無料" ALIGN="absmiddle" BORDER="0">
＜IMG SRC="/images/icon/buynow.gif" BORDER="0" WIDTH="16" HEIGHT="16" ALIGN="absmiddle" ALT="即買">
＜IMG SRC="/images/icon/icon_s16.gif" WIDTH="16" HEIGHT="16" ALT="Yahoo!かんたん決済" ALIGN="absmiddle" BORDER="0">
＜/td>

▽1 ● きゃづみぃ
●50ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

MsgBox txtInput.Value
が悪いんじゃないのかな?

MsgBox txtInput
にしたらどうでしょう？

教えてください！さんのｺﾒﾝﾄ
回答ありがとうございました｡やってみましたが､やはり､同じ個所､同じｴﾗｰがでてしまいました｡

きゃづみぃさんのｺﾒﾝﾄ
http://web.biz-prog.net/readme/readme.html ･｢Microsoft Internet Controls｣･｢Microsoft HTML Object Library｣この二つは参照設定してありますよね？

教えてください！さんのｺﾒﾝﾄ
はい｡参照設定してあります｡再度確認しましたが､しっかりとﾁｪｯｸが入っていました｡

きゃづみぃさんのｺﾒﾝﾄ
あ､ Set txtInput = ie.document.getElementById("left")(0) の(0)もはずしていました｡ Set txtInput = ie.document.getElementById("left") では？

教えてください！さんのｺﾒﾝﾄ
ありがとうございます｡状況がかわりまして､最後のﾒｯｾｰｼﾞﾎﾞｯｸｽでｴﾗｰがでるようになりました｡.valueをつけても､最後がｴﾗｰがでます｡

きゃづみぃさんのｺﾒﾝﾄ
あと "left"に指定するのって td ALIGN="left" じゃなくて <div id="modAdSct"> とかの id="modAdSct"の箇所のものをｾｯﾄしないとﾀﾞﾒなんじゃないのかな？ getElementByIdじゃなくて違うものを使用する？

教えてください！さんのｺﾒﾝﾄ
ありがとうございました｡ leftを変更して､ itemにしてみたところ､ﾒｯｾｰｼﾞﾎﾞｯｸｽに､[object] aidにしてみたところ､ﾒｯｾｰｼﾞﾎﾞｯｸｽに､[object] と表示されました｡ｽｷﾙ不足で申し訳ございません｡先ほどの前後のｿｰｽは【追記したものより前部分が】＜tr class="auc_del_style" BGCOLOR="#ffffff"> ＜td ALIGN="center"> ＜input type="checkbox" name="item" value="v99999999"> ＜input type="hidden" name="aid" value="v99999999"> ＜/td> ＜td ALIGN="center">v99999999</td> 【追記したものより後ろ部分が】＜td ALIGN="right" nowrap><b>1000 円</b></td> ＜td ALIGN="right" nowrap>5月15日 10時30分</td> のようになっております｡どんな変数をいれたらよろしいでしょうか？

きゃづみぃさんのｺﾒﾝﾄ
何を取得したいんでしょうか？

教えてください！さんのｺﾒﾝﾄ
送料無料★ｸﾛｺ柄ｼｮﾙﾀﾞｰﾊﾞｯｸﾞ★黒★ の文字列を取得したいのです｡

▽2 ● だわかき
●50ﾎﾟｲﾝﾄ

idとALIGNは違います｡
以下のようなHTMLであれば､質問のVBAが正常に動きます｡

<td id="left">送料無料★ｸﾛｺ柄ｼｮﾙﾀﾞｰﾊﾞｯｸﾞ★黒★

このようなHTMLでVBAを使って目的の文字列を抽出するのは困難です｡