☰

セル値を使用してWebからデータを取得し、URLを組み立てるにはどうすればよいでしょうか? セル参照を使用してWebからデータを取得する

tag-icon • tag-icon microsoft-excel worksheet-function vba microsoft-excel-2016 query
セル値を使用してWebからデータを取得し、URLを組み立てるにはどうすればよいでしょうか? セル参照を使用してWebからデータを取得する

セル値を使用して Web からデータを取得し、取得元の URL を組み立てるにはどうすればよいでしょうか?

セル値を使用して Web からデータを取得し、取得元の URL を組み立てるにはどうすればよいでしょうか?

セル参照を使用して、Excel が Web からデータを取得するために使用できる URL を組み立てるにはどうすればよいでしょうか。基本的には、セル値を使用して、クエリ文字列を含む完全な URL を組み立て、クエリ結果を別のセルに返そうとしています。

ワークシートの 1 つの列に API URL があり、次の列にクエリ文字列があります。セル $B$2 (URL) とセル $C$2 (クエリ文字列) を取得して、=$B$2&$C$2 から URL 結果を取得したいとします。

結果のほとんどは単なる数値であり、解釈する必要はありませんが、他の結果は JSON 結果に似ているため、目的の結果の正しい位置まで移動/バーンダウンする必要があります。

Excel の Web からデータを取得する機能は、URL をネイティブに指定すればうまく機能しますが、問題は、Excel でその機能を使用しようとしているが、Web からデータを取得するフォームに URL をネイティブに入力するのではなく、セル参照から URL を組み立てるだけであることです。

何かアイデアはありますか？ ありがとうございます

編集:
Excel を教えていた昔の教授の 1 人に連絡したところ、確信はないが、VBA スクリプトが選択肢になるかもしれないと提案されました。

答え1

私の理解では、各行のデータ URL は異なる/一意であるため、各行にクエリ テーブルを作成する必要があります。または、単一のクエリ テーブルを使用してすべての行を反復処理し、各反復でテーブルの接続 URL を更新し、次のような VBA スニペットを使用して、取得したデータを適切な行に取得することもできます (免責事項: これはテストしていません)。

' assuming your data starts at row 2
i = 2
Do While Not IsEmpty(Sheet1.Cells(i, 2))
    url = "TEXT;" & Sheet1.Cells(i, 2) & Sheet1.Cells(i, 3)
    With Sheet1.QueryTables
        If .Count < 1 Then
            .Add url, Sheet1.Range("Z1")
        Else
            .Item(1).Connection = url
        .Item(1).Refresh
        ' assuming column D would hold the results
        Sheet1.Cells(i, 4) = Sheet1.Range("Z1")
        ' do any further manipulations of the fetched Sheet1
    End With
    i = i + 1
Loop

関連情報