1

まず、私はプログラミングに比較的慣れていません。私は主に 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

私が新しいと言ったように、スパゲッティコードで申し訳ありません

4

1 に答える 1