Sub Webからテーブルを読み込む()
    Dim M As Variant
    Dim Formula As String
    Dim ws As Worksheet
    Dim lo As ListObject

    Set ws = ActiveSheet

    M = Array( _
        "let", _
    "   ソース = Web.Page(Web.Contents(""https://fushicho.com/jkd.html"")),", _
    "   テーブル = ソース{0}[Data],", _
    "   ヘッダー昇格 = Table.PromoteHeaders(テーブル, [PromoteAllScalars=true]),", _
    "   必要な列 = Table.SelectColumns(ヘッダー昇格,{""都道府県"",""人口""}),", _
    "   型変更 = Table.TransformColumnTypes(必要な列,{{""人口"", Int64.Type}}),", _
    "    並べ替え = Table.Sort(型変更,{{""人口"", Order.Descending}}),", _
    "    上位10件 = Table.FirstN(並べ替え, 10),", _
    "    桁区切り = Table.TransformColumns(上位10件, {{""人口"", each Number.ToText(_, ""#,##0""), type text}})", _
        "in", _
        "    桁区切り" _
    )

    Formula = Join(M, vbCrLf)

    ThisWorkbook.Queries.Add _
        Name:="PQ接続", _
        Formula:=Formula

    Set lo = ws.ListObjects.Add( _
        SourceType:=0, _
        Source:=Array( _
            "OLEDB;" & _
            "Provider=Microsoft.Mashup.OleDb.1;" & _
            "Data Source=$Workbook$;" & _
            "Location=PQ接続"), _
        Destination:=ws.Range("A1"))

    With lo.QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [PQ接続]")
        .Refresh BackgroundQuery:=False
    End With

    lo.Name = "T_人口"

    ThisWorkbook.Queries("PQ接続").Delete
End Sub