下記のようにヤフオクの出品終了分の１行目のタイトルを取得してメッセージボックスに
表示させるようにしたいのですが、★でエラーがでます。エラー原因と修正プランをお教えください。
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 ブロック変数が設定されていません。
とでてしまいます。
ぜひお教えください。
ソースの一部は追記いたします。
ソースの一部は追記いたします。
どこがおかしいでしょうか？
なお、<は、全角に変えて表示しています（うまくテキストが表示されないためです）
＜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>
No.1
13539
1198
ここでベストアンサー
50pt
MsgBox txtInput.Value
が 悪いんじゃないのかな?
MsgBox txtInput
にしたら どうでしょう？
何を取得したいんでしょうか？
送料無料★クロコ柄ショルダーバッグ★黒★
の文字列を取得したいのです。
No.2
797122
50pt
idとALIGNは違います。
以下のようなHTMLであれば、質問のVBAが正常に動きます。
<td id="left">送料無料★クロコ柄ショルダーバッグ★黒★
このようなHTMLでVBAを使って目的の文字列を抽出するのは困難です。
Mook
2013/05/15 20:29:07
2
1
1
1
1
3
3
何を取得したいんでしょうか？
2013/05/15 17:07:51送料無料★クロコ柄ショルダーバッグ★黒★
2013/05/15 17:28:55の文字列を取得したいのです。