QueryTableを使用してWebページのテーブルを読み込む方法
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを使用して、更新可能なWebページにあるテーブル（表）をワークシートに読み込む方法について解説します。
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのQuery【ｸｴﾘ】は「問い合わせ」という意味があり
Table【ﾃｰﾌﾞﾙ】は「表」という意味があります。つまり、「QueryTable」は表への問い合わせ機能ということになります。
指定したWebアドレス（URL）のHyperText Markup Language【ﾊｲﾊﾟｰﾃｷｽﾄ ﾏｰｸｱｯﾌﾟ ﾗﾝｹﾞｰｼﾞ】（以下HTML【ｴｲﾁﾃｨｴﾑｴﾙ】）内の＜Table＞＜/Table＞テーブルタグで囲まれた要素の範囲をワークシートに読み込むことができます。
QueryTableを使用してWebページのテーブルを読み込む手順
1．QueryTabls【ｸｴﾘｰﾃﾌﾞﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して、新しいデータベースクエリ（QueryTableオブジェクト）を作成します。
2．作成されたQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトに対してWebクエリを設定するプロパティを使用して読み込みの設定をします。
3．QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefresh【ﾘﾌﾚｯｼｭ】メソッドを使用してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを更新してワークシートに内容を書き込みます。
Webページのテーブル（表）部分をワークシートに読み込む例
コードと解説
Sub Webクエリ()
Dim 接続文字列 As String
接続文字列 = "URL;" & "https://kosapi.com/post-3002/"
With ActiveSheet.QueryTables.Add(接続文字列, Range("A1"))
.WebSelectionType = xlAllTables
.RefreshOnFileOpen = True
.Refresh
End With
End Sub
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを追加するQueryTables【ｸｴﾘﾃｰﾌﾞﾙｽﾞ】コレクションの
Add【ｱﾄﾞ】メソッドの接続先を表す引数Connection【ｺﾈｸｼｮﾝ】に設定する接続文字列を格納する変数「接続文字列」を文字列型(String)で宣言します。
3行目【接続文字列 = “URL;” & “https://kosapi.com/post-3002/”】
接続するデータの種類とデータの場所を接続文字列として指定して変数「接続文字列」に代入します。接続文字列の指定方法についてはこちらをご覧ください。データの種類を”URL;”に指定してWebページを指定しその後にWebページのアドレス（URL)を指定します。
4行目【With ActiveSheet.QueryTables.Add(接続文字列, Range(“A1”))】
QueryTables【ｸｴﾘﾃｰﾌﾞﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを追加します。第一引数の接続先を表すConnection【ｺﾈｸｼｮﾝ】には変数「接続文字列」を指定し第二引数の抽出先を表すDestnation【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】にはA1セルを指定してWithステートメントで指定します。
5行目【.WebSelectionType = xlAllTables】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのWebSelectionType【ｳｨﾌﾞｾﾚｸｼｮﾝﾀｲﾌﾟ】プロパティに
定数のxlAllTables【ｴｯｸｽｴﾙｵｰﾙﾃｰﾌﾞﾙｽﾞ】を設定することにより、Webページのテーブル（表）部分のみ読み込みます。Webページのすべてを読み込む場合は定数のxlEntirePage【ｴｯｸｽｴﾙｴﾝﾀｰﾍﾟｰｼﾞ】を設定します。設定値はXlWebSelectionTypeクラスの定数から選択します。
6行目【.RefreshOnFileOpen = True】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefreshOnFileOpen【ﾘﾌﾚｯｼｭｵﾝﾌｨﾙｵｰﾌﾟﾝ】プロパティにTrueを指定して、ブックを開くたびにWebテーブルに接続してデータを更新する設定にします。
7行目【.Refresh】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefresh【ﾘﾌﾚｯｼｭ】メソッドを使用して、各プロパティで設定した内容を反映してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを更新してセルにデータを書き込みます。
実行結果
以上で、QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】を使用してWebページのテーブルを読み込む方法についての解説を終了します。ありがとうございました。