Excel VBAを使ったレビューサイトからの評価収集方法

この記事では、Excel VBAを使用してレビューサイトから商品やサービスの評価を収集する方法を詳しく説明します。初心者から上級者まで、VBAの基本をマスターしている方であれば、効率的にデータを収集することができます。具体的なコード例、その詳細な解説、さらに応用例を3つ以上取り上げます。

VBAを用いたレビューサイトからの評価収集の基本

Excel VBAを使ってウェブサイトから情報を収集するには、VBAのWeb Scraping（ウェブスクレイピング）の技法を使用します。これは、指定されたURLのウェブページからHTMLのコードを取得し、その中の特定の情報を抽出する技法です。

Sub GetReviewData()
    Dim ie As Object
    Dim html As Object
    Dim reviews As Object
    Dim i As Integer
    ' Internet Explorerを起動
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = False ' ブラウザの表示・非表示
        .navigate "https://reviewsite.com/product-id" ' レビューサイトのURLを指定
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        Set html = .document
    End With
    ' 評価データの抽出
    Set reviews = html.getElementsByClassName("review-class") '適切なクラス名を指定
    For i = 0 To reviews.Length - 1
        Sheets("Sheet1").Cells(i + 1, 1).Value = reviews.Item(i).innerText
    Next i
    ' Internet Explorerを閉じる
    ie.Quit
    Set ie = Nothing
End Sub

コードの解説

1. まず、Internet Explorerのオブジェクトを生成し、指定したURLを開きます。
2. 該当のウェブページから、評価データが含まれるHTML要素を取得します。この例では、クラス名を用いてデータを取得しています。
3. 抽出した評価データをExcelのシートに順番にコピーします。
4. 最後に、Internet Explorerを閉じ、オブジェクトを解放します。

応用例

1. 複数のページからの評価収集

レビューサイトには、複数ページにわたって評価が表示されている場合があります。以下のコードは、複数ページから評価データを収集する例です。

' 省略...

    Dim page As Integer
    For page = 1 To 5 ' 5ページ分の評価を収集
        .navigate "https://reviewsite.com/product-id?page=" & page
        ' 省略...
    Next page

' 省略...

2. 評価の平均値を計算

収集した評価データから、評価の平均値をVBAで計算する例です。

' 省略...

Dim lastRow As Long
Dim sum As Double
Dim avg As Double

lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
sum = Application.WorksheetFunction.Sum(Sheets("Sheet1").Range("A1:A" & lastRow))
avg = sum / lastRow

Sheets("Sheet1").Cells(lastRow + 1, 1).Value = "平均評価:"
Sheets("Sheet1").Cells(lastRow + 1, 2).Value = avg

' 省略...

3. 収集データのフィルタリング

特定のキーワードを含む評価のみを抽出する例です。

' 省略...

Dim keyword As String
keyword = "良い" ' このキーワードを含む評価のみを抽出

For i = 0 To reviews.Length - 1
    If InStr(reviews.Item(i).innerText, keyword) > 0 Then
        Sheets("Sheet1").Cells(i + 1, 1).Value = reviews.Item(i).innerText
    End If
Next i

' 省略...

まとめ

Excel VBAを用いてレビューサイトから評価データを効率的に収集する方法を学びました。基本的なスクレイピングから、応用例として複数ページのデータ収集や平均評価の計算、特定キーワードを含むデータのフィルタリングなど、さまざまなテクニックを駆使してデータ収集を行うことができます。