VBAIE操作のコンパイルエラーについて
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2016年3月6日(日)02時36分 From: VBA | 返事 削除 変更 |
| 自動カートインのVBAを見よう見まねで作ってみたのですが、 コンパイルエラーが出てしまいます。 間違っている部分はどこかご教授いただけますか？ Sub GoogleSearch() Dim objIE As Object 'IE起動 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'Supreme New Yorkに接続 objIE.Navigate "http://www.supremenewyork.com/shop/skate/supreme-independent-trucks" 'IEを待機 Call IEWait(objIE) 'button(ボタン)をクリック For Each objTag In objIE.Document.getElementsByTagName("input") If InStr(objTag.outerHTML, "カートに入れる") > 0 Then Call IELinkClick(objIE, "カートに入れる") 'buttonボタンクリック objTag.Click 'カートに移動 objIE.Navigate "https://www.supremenewyork.com/checkout/" 'ループ脱出 Exit For End If Next '手抜きで2秒待つ(オブジェクトの展開時間を待つ) Application.Wait Time:=Now + TimeValue("00:00:02") End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
