検索ボタンを押し、その後に表示されるページをクリックする方法 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
