2018年05月11日

Excel VBAでIEを操作する。(1)クローラー的なものを作成して、Excelファイルに保存する。

ひとまず、メモです。


Sub OpenIE()
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

End Sub

Sub OpenURL()
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True
'' ie.Navigate "https://www.yahoo.co.jp/search?p=" & ActiveSheet.Cells(1, 1).Value
ie.Navigate "https://www.google.co.jp/search?p=" & ActiveSheet.Cells(1, 1).Value
''https://search.yahoo.co.jp/search;_ylt=A7YWOTFzJ_JaKAQAGkSCcQF8?p=%E5%BA%83%E7%80%AC%E3%81%99%E3%81%9A&search.x=1&fr=top_ga1_sa&tid=top_ga1_sa&ei=UTF-8&aq=0&oq=%E5%BA%83%E7%80%AC&at=s&aa=&ai=quRcPSdxSp6EZ0pHB1gYoA&ts=2744&mfb=1205_67b
''https://www.google.co.jp/search?source=hp&ei=E2rzWtVMhJjzBbiLvJAC&q=%E5%BA%83%E7%80%AC%E3%81%99%E3%81%9A&btnK=Google+%E6%A4%9C%E7%B4%A2&oq=%E5%BA%83%E7%80%AC%E3%81%99%E3%81%9A&gs_l=psy-ab.12..0l2j0i131k1j0j0i131k1j0l3.92894.95957.0.106983.14.12.1.1.1.0.191.1391.0j10.10.0....0...1c.1j4.64.psy-ab..3.11.1280...0i4k1j0i4i37k1j0i4i10i37i42k1j0i4i10i37k1j0i23k1j0i10i42k1j0i10k1.0.UalS4xzn7LU
End Sub

Sub ie_test() 'IEテスト
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate "http://google.co.jp/"

While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend

objIE.Document.getElementsByName("q")(0).Value = ActiveSheet.Cells(1, 1).Value
End Sub

'三流も参考
Sub WaitTest()
Dim ie As InternetExplorer

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

ie.Navigate "http://book.impress.co.jp/appended/3384/4-7.html"

Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
Debug.Print ie.Busy & ":"; ie.ReadyState
DoEvents
Loop

MsgBox ie.Document.body.innerText
End Sub

'P64

Sub SearchIE1()
Dim colSh As Object
Dim win As Object
Dim strTemp As String
Dim objIE As Object
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.Document) = "HTMLDocument" Then
If InStr(win.Document.Title, "Yahoo! JAPAN") > 0 Then
Set objIE = win
Exit For
End If
End If
Next

If objIE Is Nothing Then
MsgBox "探しているIEはありません。"
Else
MsgBox objIE.Document.Title & "がありました。"
End If
End Sub
posted by アンドレアス at 08:12| Comment(0) | vi上級 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。