VBAコードで、クラスがあるがIDがないドロップダウンから値を選択しない

Question

IEページを開き、最初のドロップダウンを入力して「キャラバン」を表示するコードがあります。しかし、私のコードは、ドロップダウンからキャラバンを選択していません。

ウェブサイトは次のとおりです。

https://insurance.qbe.com.au/portal/caravan/form/estimate

私は次のように向けますドロップダウンのソースコードを検査するために右クリックすると：

Iこの下にソースコードを展開すると、次のように表示されます。

あなたが見ることができるように、ドロップダウンに関連付けられた値は、よく私が最初に向けたソースコードの下にあります。ここで

は、私が「キャラバン」を試してみて、選択するために使用してきたコードです：上記のコードでは

Sub GetQuote() 

Dim IE As Object 
Set IE = CreateObject("InternetExplorer.Application") 
IE.navigate ("https://insurance.qbe.com.au/portal/caravan/form/estimate") 
IE.Visible = True 

Do 
DoEvents 
Loop Until IE.readystate = 4 

Dim lists, l 
Set lists = IE.document.getElementsByTagName("select")(0) 

For Each l In lists 

If InStr(1, l.className, "form-control ng-pristine ng-untouched ng-valid", 1) Then 
l.SelectedIndex = 0 
End If 

Next 

Application.Wait (Now + TimeValue("00:00:03")) 

End Sub 

私は、ソースコードの非常に最後のビットを参照することにより、「キャラバン」を選択しようとしていました私は上に貼り付けました（つまり、すべての選択タグを取得し、そのクラス名に "フォームコントロールng-unstched ng-valid"が含まれる項目が見つかるまでタグ内のすべての項目をチェックしてから、これは明らかにうまくいきませんでした。ここで私が試したもう一つのコードはもう一度ありません。（これは上のコードを少し修正したものです。ドロップダウン、私が貼り付けられた非常に最初のソースコードになりますD）：

For Each l In lists 
If InStr(1, l.className, "ui-select-search ui-select-toggle ng-pristine ng-valid ng-touched", 1) Then 
    l.SelectedIndex = 0 

Answer 1

はこのオファーに任意のヘルプではなく、それはあなたのソリューションですかどうかわからを行いますが、フォーマットのためにここに追加しました。

Sub test() 

Dim ie As SHDocVw.InternetExplorer 
Dim htmlDoc As MSHTML.HTMLDocument 
Dim inputCollection As MSHTML.IHTMLElementCollection 
Dim inputElement As MSHTML.HTMLInputElement 

Set ie = New SHDocVw.InternetExplorer 

ie.navigate ("https://insurance.qbe.com.au/portal/caravan/form/estimate") 

Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE 
    DoEvents 
Loop 

ie.Visible = 1 

Set htmlDoc = ie.document 

Set inputCollection = htmlDoc.getElementsByTagName("INput") 

For Each inputElement In inputCollection 

    Debug.Print inputElement.className 

Next inputElement 

'またはこの

Set inputElement = htmlDoc.getElementsByClassName("ui-select-search ui-select-toggle ng-pristine ng-valid ng-touched")(0) 


End Sub