VBAを用いてIEを保存する方法


Message#から前件を

日から 前を
Q&A掲示板へ

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Message#1 2016年5月31日(火)22時22分
From: 初心者
返事 削除 変更

VBAを用いてIEを保存する方法を模索しているものです。エクセルにある値を検索窓に挿入→検索ボタンをクリック→利用規約の同意ボタンをクリック→検索結果の表示→その結果をエクセルにコピーし、保存するマクロを組んでおります。以下のコードですが、エクセルに結果をコピーすることはできましたが、コピーされているものが検索結果ではなく、利用規約の同意のページ(1つ前のページ)がコピーされています。どのようにしたら改善できるかご教授いただけたら幸いです。よろしくお願いいたします。


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 = Range("A1").Value





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

Application.Wait Now + TimeValue("00:00:05")

Dim objWb As Workbook

Set objWb = Workbooks.Add

Set tbl = ie.document.getElementsByTagName("table")(0)

Set tr = tbl.getElementsByTagName("tr")


Set th = tr(0).getElementsByTagName("TH")

For c = 1 To th.Length
Cells(1, c).Value = th(c - 1).innerText
Next

For r = 2 To tr.Length

Set td = tr(r - 1).getElementsByTagName("td")

For c = 1 To td.Length

Cells(r, c).Value = td(c - 1).innerText

Next

Next

Dim fileName As String

fileName = Range("A15")

ActiveWorkbook.SaveAs fileName


End Sub

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降
VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com