Excel VBAを使ってインフルエンサーサイトから投稿や動画のリンクを収集する方法

Excel VBAを使用してインフルエンサーサイトから投稿や動画のリンクを効率的に収集する方法を詳細に解説します。この記事では、具体的なコード例とその詳細な解説、さらに応用例を3つ提供し、VBAの力を最大限に引き出す方法を紹介します。

Excel VBAを用いたWebスクレイピングの基本

Webスクレイピングとは、Webサイトから情報を自動的に取得する手法です。Excel VBAを利用することで、この作業を自動化し、特定の情報を効率よく収集することが可能となります。

Sub GetLinks()
    Dim ie As Object
    Dim elements As Object
    Dim ele As Object
    Dim i As Integer
    
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = False
        .navigate "https://example-influencer-site.com"
        
        Do Until .readyState = 4
            DoEvents
        Loop
        
        Set elements = .document.getElementsByTagName("a")
        
        i = 1
        For Each ele In elements
            ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = ele.href
            i = i + 1
        Next ele
        .Quit
    End With
End Sub

コードの詳細解説

上記のコードでは、Internet Explorerを操作して指定したURLのサイトにアクセスし、全てのタグ（リンク）を取得してExcelのシートに出力しています。

Sub GetClassLinks()
    '...（前述のコードと同じ部分は省略）
    Set elements = .document.getElementsByClassName("influencer-post")
    '...
End Sub

Sub GetSectionLinks()
    '...（前述のコードと同じ部分は省略）
    Set elements = .document.getElementById("latest-videos").getElementsByTagName("a")
    '...
End Sub

Sub GetKeywordLinks()
    '...（前述のコードと同じ部分は省略）
    For Each ele In elements
        If InStr(ele.innerText, "特定のキーワード") > 0 Then
            ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = ele.href
            i = i + 1
        End If
    Next ele
    '...
End Sub