Ошибка времени выполнения «1004» Ошибка приложения или объекта при извлечении данных веб-страницы

Question

Привет! Я пытаюсь извлечь данные с веб-сайта, используя Excel VBA

, но я получаю сообщение об ошибке With Sheets("WTD Inputs PPR").Range("A1").QueryTable

Sub WTDPPR()
    Set Rng = ActiveCell
    Application.ScreenUpdating = False

    Sheets("WTD Inputs PPR").Visible = True
    Sheets("WTD Inputs PPR").Select
    Columns("A:AA").Select
    Selection.ClearContents
    With Sheets("WTD Inputs PPR").Range("A1").QueryTable
     .Connection = "URL;" + Range("LinkWTDPPR").Value
     .Refresh BackgroundQuery:=False
     Sheets("WTD Inputs PPR").Select
     Columns("A:A").Select
     Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
     Semicolon:=False, Comma:=True, Space:=False, other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
     Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True

     Application.ScreenUpdating = False
     Sheets("WTD Inputs PPR").Visible = False

    End With
    Application.ScreenUpdating = False

End Sub

Поскольку я новичок в VBA,Не могли бы вы помочь мне определить, где возникает проблема и каким образом я могу ее решить?