2017-12-22 13 views
0

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> 
+0

"Mrs"を選択する場合は、単に 'Title.selectedindex = 4'を使用してください。 – SJR

答えて

0

、あなたがこれを使用してコードを置き換えるならば、それが動作するはずです:

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 = ie.document.getElementById("yourDetailsPolicyHolderTitle") 
    Title.selectedIndex = 4 
End Sub 

iedocument.getElementByIDには、ie.documentが必要です。

+0

ありがとうございました....コードは現在動作しています – Payal

+0

@Payal私の応答は、それが助けになったら答えとして記入できますか?ありがとう。 – Xabier

+0

上記のヘルプのためのXabierに感謝します。ラジオボタンのコーディングに関して私を助けることができれば本当に素晴らしいだろう。私は完全に修正されています。 – Payal

関連する問題