|
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 |
↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^
ExcelのVBA初心者入門↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^
こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。
こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。
こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。
こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。
こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。