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

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

VBA

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

目次

Excel VBAの基本

Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。

そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。

あわせて読みたい
Excel VBAで作業を効率化する具体的な手順とコード例 Excel VBA（Visual Basic for Applications）は、Excelで作業効率を向上させるためのプログラミング言語です。しかし、多くの初心者がどう入門するべきか、どうコードを...
業務改善コンサルタントが教える　Excel VBA自動化のすべて〜35の事例で課題解決力を身につける〜
created by Rinker
¥3,450 (2024/09/07 16:33:20時点 Amazon調べ-詳細)

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のシートに出力しています。

応用例1: 特定のクラスを持つ要素のリンクのみを収集

特定のデザインやクラスを持つリンクのみを取得したい場合の応用例です。

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

応用例2: ページ内の特定のセクションからリンクを収集

ページ内の特定のセクション、例えば「最新の動画」というセクション内のリンクのみを収集する方法です。

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

応用例3: サイト内の特定のテキストを含むリンクのみを収集

サイト内で特定のキーワードやフレーズを含むリンクのみを収集する方法です。

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

まとめ

Excel VBAを使用してインフルエンサーサイトからの情報収集は、効率化の一環として非常に有効です。上記の基本的な手法と応用例を組み合わせることで、さまざまな情報収集のニーズに応じてカスタマイズすることが可能です。VBAの力を存分に活用し、作業効率を向上させましょう。

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

『Excel パワークエリ』+『Excelパワーピボット』+『Excel パワーピボット DAX編』-Excel自動化強化 専門書- 3冊セット
created by Rinker
SHOEI
¥8,514 (2024/09/07 16:59:32時点 Amazon調べ-詳細)

VBA
自動化 効率化 Excel インフルエンサーサイト リンク収集

コメント

コメントする

目次