2016-09-26 2 views
0

ウェブサイトからデータを取得したい場合は、最初にフォームコントロールを入力してボタンをクリックしますが、ドロップから値を選択することはできませんこのタスクを達成するために私を助けてください。VBA WebScrapingドロップドロップダウンボックスから値を選択する方法

Sub extract_data_from_MonsterIndia() 

    Dim objIE     As Object 
    Dim myjobtype    As String 
    Dim myexperience   As Integer 
    Dim mycity     As String 
    Dim r      As Integer 
    Dim c      As Integer 

    Set objIE = CreateObject("InternetExplorer.Application") 

    myjobtype = "VBA Developer" 
    myexperience = "5" 
    mycity = "Delhi/NCR" 

    With objIE 
     .Visible = True 
     .Navigate ("http://www.monsterindia.com") 

     While .ReadyState <> 4 
      DoEvents 
     Wend 

     .Document.getelementsbyname("fts").Item.innerText = myjobtype 
     .Document.getelementsbyname("exp").Item(0).innerText = myexperience 'This line is not working 
     .Document.getelementsbyname("lmy").Item.innerText = mycity 
     .Document.getelementsbyname("submit")(0).Click 

     Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop 

    End With 

    objIE.Quit 
    Set objIE = Nothing 


End Sub 

答えて

0

私たちが実際に典型的な 'ドロップダウン' メニュー<select>タグを扱っていないこの場合

.Document.getelementbyid("selExp").InnerText = "n" 
.Document.getelementbyid("selExp_val").Value = "n" 

Relevant DOM

を試してみてください。このメニューでは、オプションのリストと、<input>タグのvalue属性の値を格納するDOM操作を使用します。したがって、単にそのタグの下のvalue属性を変更することができます。

私が投稿したコードは、タグのID(1つだけのidでなければなりません)を使用し、その特定の要素のvalue属性を.valueを使って操作します。 innerTextを編集

それは表面的であるため、明示的に必要されていません(サーバが最も可能性が高いというデータを受信したり使用することはありません)

+0

こんにちは、 再生のため おかげで、しかし、それは私にエラーメッセージを与えて、動作していません"オブジェクトはこのプロパティまたはメソッドをサポートしていません。" ありがとう Kashif – Kashif

+0

コードを更新しました。それがあなたのために働くかどうか私に教えてください。私は何とか最初にDOMを誤解したと思います。 –

+0

こんにちはコードG、 ありがとうございました。 多くの方々ありがとうございました:) ありがとうございました Kashif – Kashif

関連する問題