VBAを使用してこのウェブサイトを自動化しようとしています。私は、ドロップダウンボックスから値を選択する必要がある時点で打たれます。私はVBAには非常に新しく、TISはそのようなプロジェクトです。これは値を選択するためにコーディングしたものです。ここでExcel VBA Webフォームの入力中にウェブサイトのドロップダウンリストからオプションを選択
Sub automaticformfilling_ASDA()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
'to make sure that the website is properly loaded
With ie
.Visible = True
.navigate "https://www.argos-pet-insurance.com/quoteAndBuy.do?e=e1s1&curPage=captureDetails&rakT=1510852044896.1391473424.994101.1731.881880349.846|tsid:9904"
Do While .Busy
DoEvents
Loop
Do While .readyState <> 4
DoEvents
Loop
End With
Set Title = i.e.document.getElementById("yourDetailsPolicyHolderTitle")
For i = 1 To Title.Options.Length
If Title.Options(i).Text = "Mrs" Then
Exit For
End If
Next i
End Sub
は、そのセクションのHTMLです:SJRからのコメントも、私はあなたのコードで見つかったタイポを1として
<select name="policyHolder.title" class="select-large" id="yourDetailsPolicyHolderTitle" data-di-field-id="policyHolderTitle">
<option selected="selected" value="">Please select</option>
<option value="NWA_PET_T5">Dr</option>
<option value="NWA_PET_T3">Miss</option>
<option value="NWA_PET_T1">Mr</option>
<option value="NWA_PET_T2">Mrs</option>
<option value="NWA_PET_T4">Ms</option>
</select>
"Mrs"を選択する場合は、単に 'Title.selectedindex = 4'を使用してください。 – SJR