1

私はこれが初めてなので、気楽に行ってください。以下から検索結果を抽出するマクロをいくつか作成しました: Sec 全文検索: http://searchwww.sec.gov/EDGARFSClient/jsp/EDGAR_MainAccess.jsp

データがすべてクリーンアップされ、さまざまな列に設定されたので、結果に基づいてクエリを作成する必要があります。列 BI には会社名のリストがあり、列 "B" の各セルを参照し、http://www.marketwatch.com/tools/quotes/lookup.asp?siteID=mktw &Lookup= でマーケット ウォッチをクエリします。 options+media&Country=us&Type=会社名に関連するティッカー シンボルのすべて。最終的には、共有構造、収益などに関する情報を取得する複数のクエリを実行する必要があるため、それは私を助けてくれます。この質問にお答えいただければ幸いです。

4

1 に答える 1

3

以下のコードを試してください。

Sub website()

    Dim doc As HTMLDocument
    Dim htmTable As HTMLTable

    Set doc = New HTMLDocument
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://www.marketwatch.com/investing/stock/BAC"
        .send
        Do: DoEvents: Loop Until .readyState = 4
        doc.body.innerHTML = .responseText
        .abort
    End With

    Set htmTable = doc.getElementsByClassName("companyname")(0)

    If Not htmTable Is Nothing Then
        MsgBox htmTable.innerText
    End If

     Set htmTable = doc.getElementsByClassName("lastprice")(0)

    If Not htmTable Is Nothing Then
        MsgBox htmTable.innerText
    End If
End Sub
于 2013-04-07T23:50:01.173 に答える