Question

我有一个带网址的单元格。我想创建一个宏来记录从使用单元格中的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

注意：我在B3

的单元格Sheet1中有https://www.google.com

HTH;）

使用单元格网址将网址插入新的网络查询

1 个答案: