IEで開いたページをエクセルで保存する方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2016年5月22日(日)02時21分 From: 初心者 | 返事 削除 変更 |
IEで指定のページを開き、検索を行い、結果のページを開くことまでできました。そこからページの指定の文章をexcelで保存したいのですが調べていてもなかなかできません。アドバイスを頂けたらと思い投稿させていただきました。ご教授のほどよろしくお願い致します。以下のプログラムが検索結果まで開けたものになります。文章をexcelに抽出する方法と指定の文章をコピーする方法が知りたいです。エクセルにコピーしたい範囲は検索結果です。よろしくお願い致します。 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 Application.Wait Now + TimeValue("00:00:05") Set btn = doc.getElementsByTagName("input")(0) btn.form.submit End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
