まず、私はプログラミングに比較的慣れていません。私は主に VBA に慣れてきました。以前ここで質問したことがありますが、これまでのところ回答は非常に役に立ちましたので、もう一度試してみます。
私はこのサイトに行きます: http://www.otcmarkets.com/stock-screener
スクリプトに次のようなことを言いたい:
if ElementClassName("listingOdd").innertext = "USA, NV"
then GetElementsbyClassName("listingOddlistingOdd whiteSpaceNormal").innertext
また、完了するまでループして、このhtmlの背後にある次のボタンをクリックしたいと思います: a href="javascript:void(null);">next & gt;/a
私は過去の質問を検索し、チュートリアルを見てきましたが、これに真剣に頭をぶつけていないかどうかは尋ねません. 事前にどうもありがとう
これは私が試したいくつかのコードで、次のエラーが表示されます:「オブジェクトはこのメソッドをサポートしていません」試行錯誤から多くのコメントアウトがあります
Sub t()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "http://www.otcmarkets.com/stock-screener"
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sDD As String
Dim lnk As Variant
sDD = Trim(Doc.GetElementbyClassName("listingOddlistingOdd whiteSpaceNormal").innerText)
'If lnk.classame.innerText = "USA, NV" Then
If lnk.innerText = "USA, NV" Then
'If ElementClassName("listingOdd")(0).innerText = "USA, NV" Then
'sDD
'sDD = Trim(Doc.GetElementbyClassName("listingOddlistingOdd whiteSpaceNormal").innerText)
MsgBox sDD
End If
End Sub
私が新しいと言ったように、スパゲッティコードで申し訳ありません