IEで開いたページをエクセルで保存する方法

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

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

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