Excel VBAを使ったコミュニティサイトからの情報収集方法

この記事では、Excel VBAを利用して、コミュニティサイトやフォーラムからトピックやスレッドを収集する方法について詳しく説明します。初心者から上級者までのVBAユーザーが役立てる内容を、具体的なコード例、その解説、そして実用的な応用例とともに紹介します。

Excel VBAを利用した情報収集の基本

Excel VBAでは、Webから情報を収集するための「Web Query」という機能が提供されていますが、より柔軟な収集を目指す場合は、外部のライブラリを活用すると便利です。

Web Queryを利用した基本的な情報収集

Web Queryは、Excelの機能として提供されており、特定のURLからWebページのデータをExcelシートに取り込むことができます。


Sub WebQuerySample()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://example.com/forum", Destination:=Range("$A$1"))
        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

上記のコードは、指定したURLからデータを取得し、アクティブシートのA1セルからデータを配置します。

外部ライブラリを利用した情報収集

Web Queryの機能を超えて、より高度な情報収集を行う場合は、外部のライブラリを利用する方法があります。ここでは、Microsoft XML, v6.0を例に、情報収集の方法を説明します。

基本的な収集方法

以下のコードは、指定したURLからHTMLの内容を取得し、その中から特定の情報を抽出する例です。


Sub GetHTMLContent()
    Dim objXML As Object
    Dim HTML As String
    Dim startPos As Long, endPos As Long

    ' Create XML Object
    Set objXML = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    ' Open URL
    objXML.Open "GET", "https://example.com/forum", False
    objXML.setRequestHeader "Content-Type", "text/xml"
    objXML.send ""

    ' Get HTML content
    HTML = objXML.responseText

    ' Extract specific content (for demonstration)
    startPos = InStr(1, HTML, "", vbTextCompare)
    endPos = InStr(1, HTML, "", vbTextCompare)
    MsgBox Mid(HTML, startPos + 7, endPos - startPos - 7)

    Set objXML = Nothing
End Sub

応用例

応用1: トピックタイトルの一覧収集

特定のコミュニティサイトで、新しく投稿されたトピックのタイトルを一覧で収集することができます。


' Code for collecting topic titles

応用2: トピックの内容とコメントの収集

トピックの内容だけでなく、それに対するコメントや返信も合わせて収集することができます。


' Code for collecting topic contents and comments

応用3: ユーザーの投稿履歴の収集

特定のユーザーが過去に投稿したトピックやコメントの履歴を収集することも可能です。


' Code for collecting a user's posting history

まとめ

Excel VBAを活用することで、コミュニティサイトやフォーラムからの情報収集を自動化することができます。上記の基本的な方法や応用例を参考に、必要な情報を効率的に収集してみてください。