セルURLを使用してURLを新しいウェブクエリに挿入

Question

私はURLを持つセルを持っています。私は、セル内のURLを使用してウェブサイトからデータを選択することから記録するマクロを作成したいとします。 B2をクリックしてウェブサイトにアクセスします。私はインターネットを検索し、どこでも答えを見つけることができません。誰も助けることができますか？

Answer 1

次のコードは、あなたを助けることがあります。

Option Explicit 

Sub getWebData() 

    Dim ini_wb As Workbook: Set ini_wb = ThisWorkbook 
    Dim aux_wb As Workbook 
    Dim url As String 

    ' Change the sheet name and cell address according to your needs 
    url = ini_wb.Worksheets("Sheet1").Range("B3").Value 

    Application.ScreenUpdating = False 
    Set aux_wb = Workbooks.Open(url) 
    Application.ScreenUpdating = True 

End Sub 

注：私はHTH

Sheet1のセル B3に https://www.google.comを持っています。）