Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7370 / 76732

←次へ　｜　前へ→


	【74950】Re:あるサイトから結果データを自動取得

γ - 13/10/30(水) 20:27 -


	引用なし

	パスワード

こんな感じでしょうか。
タイミングの問題で、うまくいかないことがありました。
時間待ちのところは適宜調節してみてください。

Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
'参照設定 Microsoft Internet Controls(Microsoft Browser Helpers)
'Microsoft HTML Object Library の２つを忘れずに
Sub test()
　　Dim objIE As Object
　　Dim sht As Worksheet
　　Dim result
　　Dim s As String
　　Dim k As Long
　　Dim placeholder As Object
　　Dim ss As String
　　
　　Set sht = Sheets("Sheet1")

　　Set objIE = CreateObject("InternetExplorer.Application")
　
　　With objIE
　　　　.Visible = True　'デバッグ中は可視にしたほうが良い
　　　　.Navigate "★//www.englishnepalidictionary.com"　'5文字省略
　　　　While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
　　　　　　DoEvents
　　　　Wend
　　　　DoEvents

　　　　For k = 2 To sht.Range("A1").End(xlDown).Row
　　　　　　s = sht.Cells(k, 1).Value
　　　　　　Set placeholder = .document.getElementById("q")
　　　　　　placeholder.Value = s

　　　　　　.document.getElementById("btnSearch").Click
　　　　　　While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True
　　　　　　　　DoEvents
　　　　　　Wend
　　　　　　Sleep 1000

　　　　　　ss = .document.getElementsByTagName("h3").Item(0).innerText
　　　　　　sht.Cells(k, 2).Value = Replace(ss, s & " - ", "")
　　　　Next
　　End With
　　
　　objIE.Quit
　　Set objIE = Nothing
End Sub

306 hits

▼

【74944】あるサイトから結果データを自動取得 さん 13/10/29(火) 17:46