Excel VBAを使った美術館・ギャラリーサイトの展示情報自動取得法

Excel VBAを活用することで、美術館やギャラリーサイトからの展示情報を自動的に取得するプログラムを作成することができます。この記事では、そのようなプログラムの基本的な作成方法と応用例を紹介します。

Excel VBAの基本

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

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

Excel VBAを活用した展示情報の取得とその利点

Excel VBAを使用することで、手動でのデータ収集作業を自動化し、時間の節約や作業ミスの削減、大量の情報を効率よくまとめることが可能となります。

基本的なコードの構成

以下のコードは、美術館やギャラリーサイトから展示情報を取得するシンプルな例です。


Sub GetExhibitionInfo()
    Dim IE As Object
    Dim doc As Object
    Dim element As Object
    ' Internet Explorerを開く
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    ' 目的のウェブサイトにアクセス
    IE.navigate "https://example-museum-website.com/exhibitions"
    ' サイトの読み込みが完了するまで待つ
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    Set doc = IE.document
    ' 展示情報の取得
    Set element = doc.getElementById("exhibition-info")
    Cells(1, 1).Value = element.innerText
    ' Internet Explorerを閉じる
    IE.Quit
    Set IE = Nothing
End Sub

Sub GetExhibitionInfo()

Dim IE As Object

Dim doc As Object

Dim element As Object

' Internet Explorerを開く

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

' 目的のウェブサイトにアクセス

IE.navigate "https://example-museum-website.com/exhibitions"

' サイトの読み込みが完了するまで待つ

Do While IE.Busy Or IE.readyState <> 4

DoEvents

Loop

Set doc = IE.document

' 展示情報の取得

Set element = doc.getElementById("exhibition-info")

Cells(1, 1).Value = element.innerText

' Internet Explorerを閉じる

IE.Quit

Set IE = Nothing

End Sub

このコードは、Internet Explorerを用いて指定したウェブサイトにアクセスし、展示情報をExcelのシートに転写するものです。

応用例

応用例1: 複数のサイトから情報取得

複数のサイトから情報を一括で取得する場合のコードです。


Sub GetMultipleSitesInfo()
    Dim IE As Object
    Dim doc As Object
    Dim element As Object
    Dim i As Integer
    Dim urls() As String
    urls = Array("https://site1.com/exhibitions", "https://site2.com/exhibitions")
    ' Internet Explorerを開く
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    For i = LBound(urls) To UBound(urls)
        ' 各サイトにアクセス
        IE.navigate urls(i)
        ' サイトの読み込みが完了するまで待つ
        Do While IE.Busy Or IE.readyState <> 4
            DoEvents
        Loop
        Set doc = IE.document
        ' 展示情報の取得
        Set element = doc.getElementById("exhibition-info")
        Cells(i + 1, 1).Value = element.innerText
    Next i
    ' Internet Explorerを閉じる
    IE.Quit
    Set IE = Nothing
End Sub

Sub GetMultipleSitesInfo()

Dim IE As Object

Dim doc As Object

Dim element As Object

Dim i As Integer

Dim urls() As String

urls = Array("https://site1.com/exhibitions", "https://site2.com/exhibitions")

' Internet Explorerを開く

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

For i = LBound(urls) To UBound(urls)

' 各サイトにアクセス

IE.navigate urls(i)

' サイトの読み込みが完了するまで待つ

Do While IE.Busy Or IE.readyState <> 4

DoEvents

Loop

Set doc = IE.document

' 展示情報の取得

Set element = doc.getElementById("exhibition-info")

Cells(i + 1, 1).Value = element.innerText

Next i

' Internet Explorerを閉じる

IE.Quit

Set IE = Nothing

End Sub

応用例2: 展示の画像もダウンロード

展示情報に加えて、画像もダウンロードするコードの例です。


Sub GetExhibitionInfoWithImage()
    Dim IE As Object
    Dim doc As Object
    Dim imgElement As Object
    Dim imgUrl As String
    ' Internet Explorerを開く
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    ' 目的のウェブサイトにアクセス
    IE.navigate "https://example-museum-website.com/exhibitions"
    ' サイトの読み込みが完了するまで待つ
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    Set doc = IE.document
    ' 展示情報の取得
    Set imgElement = doc.getElementById("exhibition-image")
    imgUrl = imgElement.src
    ' 画像のダウンロード
    ThisWorkbook.FollowHyperlink imgUrl
    ' Internet Explorerを閉じる
    IE.Quit
    Set IE = Nothing
End Sub

Sub GetExhibitionInfoWithImage()

Dim IE As Object

Dim doc As Object

Dim imgElement As Object

Dim imgUrl As String

' Internet Explorerを開く

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

' 目的のウェブサイトにアクセス

IE.navigate "https://example-museum-website.com/exhibitions"

' サイトの読み込みが完了するまで待つ

Do While IE.Busy Or IE.readyState <> 4

DoEvents

Loop

Set doc = IE.document

' 展示情報の取得

Set imgElement = doc.getElementById("exhibition-image")

imgUrl = imgElement.src

' 画像のダウンロード

ThisWorkbook.FollowHyperlink imgUrl

' Internet Explorerを閉じる

IE.Quit

Set IE = Nothing

End Sub

応用例3: 取得した情報の自動整形

取得した展示情報をExcel内で自動的に整形するコードの例です。


Sub FormatExhibitionInfo()
    Dim LastRow As Long

    ' 展示情報の最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    ' データの整形
    With ThisWorkbook.Sheets("Sheet1").Range("A1:A" &amp; LastRow)
        .Font.Name = "Arial"
        .Font.Size = 12
        .Columns("A:A").AutoFit
    End With
End Sub

Sub FormatExhibitionInfo()

Dim LastRow As Long

' 展示情報の最後の行を取得

LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

' データの整形

With ThisWorkbook.Sheets("Sheet1").Range("A1:A" & LastRow)

.Font.Name = "Arial"

.Font.Size = 12

.Columns("A:A").AutoFit

End With

End Sub

まとめ

Excel VBAを使って美術館やギャラリーサイトからの展示情報を自動取得することで、大量の情報も効率的にまとめることができます。基本的なコードから応用例まで、さまざまなシチュエーションでの使用法を学んで、自分のニーズに合わせてカスタマイズしてみましょう。

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

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

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

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

『Excel パワークエリ』+『Excelパワーピボット』+『Excel パワーピボット DAX編』-Excel自動化強化専門書- 3冊セット

created by Rinker

SHOEI

¥8,514 (2023/09/26 13:08:33時点 Amazon調べ-詳細)

Excel VBAを使った美術館・ギャラリーサイトの展示情報自動取得法

Excel VBAの基本

Excel VBAを活用した展示情報の取得とその利点

基本的なコードの構成

応用例

応用例1: 複数のサイトから情報取得

応用例2: 展示の画像もダウンロード

応用例3: 取得した情報の自動整形

まとめ

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

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントするコメントをキャンセル

Excel VBAを使った美術館・ギャラリーサイトの展示情報自動取得法

Excel VBAの基本

Excel VBAを活用した展示情報の取得とその利点

基本的なコードの構成

応用例

応用例1: 複数のサイトから情報取得

応用例2: 展示の画像もダウンロード

応用例3: 取得した情報の自動整形

まとめ

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

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントする コメントをキャンセル

コメントするコメントをキャンセル