VBAを通じてウェブページのボタンをクリックするにはどうすればよいですか？

Question

私はvbaを通してボタンをクリックして使用しようとしていますが、 "オブジェクトはこのプロパティまたはメソッドをサポートしていません"と私に伝えます。今

私のVBAコードは次のとおりです。

IE.document.getElementByType("button").getelementByClass("qm_historyTab_GoButton").Click 

ボタンのHTMLは次のとおりです。

<button class="qm_historyTab_GoButton" type="submit" style="font:normal 11px tahoma,arial,helvetica,sans serif;"> 
    <span class="qm_historyTab_GoButtonText">GO</span> 
</button> 

Answer 1

私はこの特定のインスタンスで解決策を見つけました。ボタンは送信タイプで、HTMLInputElementを使用してメッセージを送信します。

「Microsoft HTML Object Library」を自分の参照に追加し、それらの機能を利用する必要がありました。

私は応答を送信し、変数を作成する必要がありました：

Dim htmlInput As MSHTML.HTMLInputElement

私はそれのクラス名を持つすべてのものを手にして、個別に、この特定の要素を参照する方法を見つけ出すことができませんでした。

For Each htmlInput In IE.document.getElementsByClassName("qm_historyTab_GoButton") If Trim(htmlInput.Type) = "submit" Then htmlInput.Click Exit For End If Next htmlInput

それから私は、直列に各アイテムをプログラムサイクルを持っていたし、提出し、応答を送信します。これがクラス名の唯一のものだったので、私は運が良かった。

とにかく、それが私が問題を解決した方法です。

Answer 2

はこれを試してみてください：

IE.document.getElementsByTagName("button") _ 
    .getelementsByClassName("qm_historyTab_GoButton")(0).Click 

getXXX方法の両方がコレクションを返します（たとえドキュメント内に1つの一致があっても）単一の項目fr目的は、フォームを送信する場合、これはまた

IE.document.getElementById("qm_historyForm_7871").submit 

かで一つだけのボタンがありますように動作します：最後の1 OMそれをクリックするために、あなたは(0)

EDITを追加する必要がありますそのクラス名：

IE.document.getElementsByClassName("qm_historyTab_GoButton")(0).Click