idがないウェブサイトの検索ボタンを押す

私は会社名をウェブサイトに検索して検索するVBAをまとめています。idがないウェブサイトの検索ボタンを押す

Sub SearchBot() 

    Dim objIE As InternetExplorer 
    Dim aEle As HTMLLinkElement 
    Dim y As Integer 
    Dim result As String 

    Set objIE = New InternetExplorer 
    objIE.Visible = True 
    objIE.navigate "https://website.com" 
    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop 
    objIE.document.getElementById("SearchTopBar").Value = Sheets("Sheet1").Range("A2").Value 

    'click the 'go' button; This line below is what is causing the problem 
    objIE.document.getElementByClassName("iPadHack Tmbsearchright").Click 

    ' this line is what the button in the website is referencing 
    'a class="iPadHack tmbsearchright"onclick="document.forms['hello2'].submit();"> </a 

    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

出典

2016-09-28 Sameer

はTmbsearchright –

ちょうど、それが機能しなかったことにしようとしたように、単に、1つのクラスを使用してみてください。 "ファイル名を指定して実行時エラー「438：オブジェクトはこのプロパティまたはメソッドをサポートしていません" – Sameer

2行を行います。が、私はエラーを得た '設定しONODE = objIE.document.getElementsByClassName（ "Tmbsearchright"）（0 ） 'と' oNode.click'です。 '.getElementByClassName'は間違った構文です。あるいは、別の方法で試してみることもできます： 'Set oForm = document.forms.item（" hello2 "）'と 'oForm.submit' – omegastripes

がそれを手に入れた：問題は、私は、検索ボタンを押し

コードに私のコードの権利を取得するように見えることができないということです！みんなありがとう。興味があるものについては、私が使用：

set oNode = objIE.document.getElementsbyClassName("iPadHack tbmsearchright")(0) 
oNode.click

出典

2016-10-05 14:22:35 Sameer

idがないウェブサイトの検索ボタンを押す

答えて

関連する問題