VBAIE操作のコンパイルエラーについて 削除
| Message#2 2016年3月6日(日)18時00分 From: ジャッカル |
| Call IELinkClick(objIE, "カートに入れる") 'buttonボタンクリック objTag.Click の部分で2回クリック処理をいれてるようだけどなに？ あとサブルーチンの中身が分からないのでその部分でエラーが起きていてもわからないかな。 > 自動カートインの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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
