Sub PDFをPowerQueryで読み込む()
    Dim filePath As String
    Dim mLines As Variant
    Dim mCode As String
    Dim ws As Worksheet
    Dim lo As ListObject

    filePath = ThisWorkbook.Path & "\新価格表.pdf"

    mLines = Array( _
        "let", _
        "    ソース = Pdf.Tables(", _
        "        File.Contents(""" & filePath & """),", _
        "        [Implementation = ""1.3""]", _
        "    ),", _
        "    ヘッダー昇格 = Table.TransformColumns(", _
        "        ソース,", _
        "            {{""Data"", each Table.PromoteHeaders(_, [PromoteAllScalars = true])}}", _
        "    ),", _
        "    対象テーブル = Table.SelectRows(", _
        "        ヘッダー昇格,", _
        "            each List.Contains(Table.ColumnNames([Data]), ""ヘルスケア"")", _
        "                and List.Contains(Table.ColumnNames([Data]), ""価格"")", _
        "    ){0}[Data]", _
        "in", _
        "    対象テーブル" _
    )

    mCode = Join(mLines, vbCrLf)

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

    Set ws = ActiveSheet

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

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

    lo.Name = "T_新価格表"

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