vbaを用いたieの自動化

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

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

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

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

Message#2 2015年10月16日(金)09時26分
From: VBAマスター

返事削除変更

> 'button(ボタン)をクリック
> For Each objTag In objIE.Document.getElementsByTagName("input")
>
> If InStr(objTag.outerHTML, "カートに入れる") > 0 Then
>
> 'buttonボタンクリック
> objTag.Click
>
>
> 'ループ脱出
> Exit For
>
> End If
> Next

まずクリック処理のあとのIE表示待機処理が入っていないため次の処理にすぐに入ってしまい、エラーが起きる可能性が高くなります。
ですので、クリック処理したあとは
'IEを待機
Call IEWait(objIE)

をいれるようにしましょう。

> 入力フォームにまずは名前を入力したいのですが、いろいろ試してもうまくいきません。どなたか教えていただけないでしょうか？よろしくお願い致します。

フォーム入力はinputタグを利用します。
inputタグにはnameが設定されていますので、nameの名前を利用して以下のように設定します。

objIE.document.GetElementsByName("name名")(0).value ="入力したい値"

Message#1 2015年10月16日(金)03時09分
From: ASP

返事削除変更

vbaを用いたieの自動化を考えております。
素人質問なのですみません

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/accessories/bar-glass"

'IEを待機
Call IEWait(objIE)

'button(ボタン)をクリック
For Each objTag In objIE.Document.getElementsByTagName("input")

If InStr(objTag.outerHTML, "カートに入れる") > 0 Then

'buttonボタンクリック
objTag.Click

'ループ脱出
Exit For

End If
Next
objIE.Navigate "https://www.supremenewyork.com/checkout"
'手抜きで2秒待つ(オブジェクトの展開時間を待つ)
Application.Wait Time:=Now + TimeValue("00:00:02")

あまりvbaの知識がないのでクリックの部分がちょっとおかしいですが、このように組んで、購入者の入力フォームまで行くことができました。

入力フォームにまずは名前を入力したいのですが、いろいろ試してもうまくいきません。どなたか教えていただけないでしょうか？よろしくお願い致します。