VBAでヤフオクのサイトを操作するには？
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2014年9月17日(水)23時17分 From: 初心者 | 返事 削除 変更 |
| VBAについての質問です。VBAは初心者です。 よろしくお願いいたします。 IEを開き別のページに移動してIEを閉じたいのですが上手く行きません。 WEBで見つけたコードを使いましたがIEを閉じることが出来ません。 どのようにすればよいのでしょうか？ よろしくお願いいたします。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 'ヤフオクに移動する Sub GoToYahooAuction() Dim objIE As Object 'IE起動 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'Yahooに接続 objIE.navigate "http://www.yahoo.co.jp/" 'IEを待機 Call IEWait(objIE) '2秒停止 Call WaitFor(2) '「ヤフオク!」のリンクをクリック Call IELinkClick(objIE, "ヤフオク!") 'IE終了 objIE.Quit Set objIE = Nothing End Sub 'リンクをクリックする関数 Function IELinkClick(ByRef objIE As Object, ByVal anchorText As String) Dim objLink As Object For Each objLink In objIE.Document.getElementsByTagName("A") If objLink.innerText = anchorText Then objIE.navigate objLink.href Exit For End If Next End Function 'IEを待機する関数 Function IEWait(ByRef objIE As Object) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop End Function '指定した秒だけ停止する関数 Function WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
