IEで開いたページをエクセルで保存する方法 削除
| Message#2 2016年5月23日(月)13時59分 From: ジャッカル |
| とりあえずどうやってできなかったのか具体的なソースも書かないとアドバイスのしようがないよ。 あとデータ抽出はこのサイトでも色々抽出方法まとめているからこれみたら大抵できるはず。 俺もほとんどできなかったけど、ここでかなり学んだから。 http://www.vba-ie.net/element/index.html > > 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
