TimeOutSec = 60 ' タイムアウト時間 Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = False objIE.Navigate "joysound.com/ex/search/karaoke/_selSongNo_"&No&"_songwords.htm" dt = Now()' ログインページが読み込まれるまで待つ Do Until objIE.readyState = 4 ' 完了するまで待つ If DateAdd("s", TimeOutSec, dt) < Now() Then "ログインページ読み込み失敗" : Exit Function Loop If "ログインしていなかった場合" Then With objIE.Document.forms(0) .elements("loginForm:ID").value = "ゆーざー" .elements("loginForm:PASS").value = "ぱすわど" .submit End With dt = Now() ' ログインした後のページが読み込まれるまで待つ Do Until objIE.Busy = False ' 完了するまで待つ If DateAdd("s", TimeOutSec, dt) < Now() Then "ログインした後のページ読み込み失敗" : Exit Function Loop End If HTML = objIE.Document.Body.InnerHtml 'ここにHTMLが格納される Set objIE = Nothing
