検索ボタンを押し、その後に表示されるページをクリックする方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2016年5月19日(木)02時25分 From: 初心者 | 返事 削除 変更 |
| 初めましてVBA初心者です。番号を検索し、その結果を保存するといったようなことをしたく始めたのですが、検索ボタンを押した後に表示されるページのボタンをクリクすることができません。改善方法などご教授いただけたら幸いです。以下プログラムとなります。 Public Sub IE基本_個体識別番号検索() Dim ie As New InternetExplorer ie.navigate "https://www.id.nlbc.go.jp/top.html" ie.Visible = True While ie.Busy = True And ie.readyState < READYSTATE_COMPLETE DoEvents Wend Dim doc As HTMLDocument Set doc = ie.document Dim sel As IHTMLSelectElement Dim inp As IHTMLInputElement Set objInpTxt = ie.document.getElementsByName("txtIDNO")(0) objInpTxt.Value = "1337256214" Dim btn As HTMLInputElement Set btn = doc.getElementsByTagName("input")(0) btn.form.submit While ie.Busy = True And ie.readyState < READYSTATE_COMPLETE DoEvents Wend Set btn = doc.getElementsByTagName("input")(0) btn.form.submit End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
