VBAIE操作のコンパイルエラーについて

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

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

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