2016-07-01 8 views
1

Amazon Webサイトを開き、商品を選択してカートに移動し、カートを押して数量を変更します(たとえば450)。私は量を変更する最後のステップを解決するための問題があります。Amazonでvbaで数量を変更

This is the quantity button.

私はこれを試してみました:

Set objIE = CreateObject("InternetExplorer.Application") 
With objIE` 

Set Element = .document.getElementsById("dropdown1_9") 
Element.Click 

と、この:

Set Element = .document.getElementsByName("quantatiy").value = 10 
End with 

の両方が動作しませんが。私は、私が操作しようとしているボタンのタイプを知らないと思う。

誰かが問題を手伝ってもらえますか?数量を変更するにはどうすればよいですか?

+0

quantatiyは正しいスペルですか?また、IEが準備ができているかを確認するためにいくつかの待機を追加します。 –

+0

もっとお試しください: 'Set Element = .document.getElementsByName(" quantatiy ")。selectedindex = 1' あなたはスペルについても確実ですか? –

+0

ウェブストアのようなフロントエンドのコードは危険です。明日Amazonがサイトを更新し、最新バージョンが異なる名前を使用するとどうなりますか?コードは、(おそらく不要なアイテムを注文して)失敗するか、予測できない方法で動作する可能性があります。可能であれば、あなたは[API](https://en.wikipedia.org/wiki/Application_programming_interface)に対してコードを書くべきです。 –

答えて

0

これを使用しましたが、私はバスケットに移動するためのコードを入れていませんが、あなたが尋ねていることはしています。

Public Sub test() 


Dim objIE As SHDocVw.InternetExplorer 
Dim objDoc As MSHTML.HTMLDocument 
Dim ele As MSHTML.IHTMLElementCollection 
Dim e As MSHTML.IHTMLElement 

Set objIE = New SHDocVw.InternetExplorer 

objIE.Visible = True 

objIE.navigate "www.amazon.co.uk" 

While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE 
    DoEvents 
Wend 

Set objDoc = objIE.document 

Set ele = objDoc.getElementsByClassName("a-button-text a-declarative") 

Set e = ele(0) 

e.innerText = 2 

End Sub 
関連する問題