Abfragen von Daten von der Website Fehler

Question

Sub GetDataFromLandings() 
    Dim lastrow As Long, x As Long 

    Application.ScreenUpdating = False 

    ActiveWorkbook.Sheets("Sheet2").Range("A2:F250") = Null 

    With Worksheets("Sheet2") 
     lastrow = .Range("G" & Rows.Count).End(xlUp).Row 

     For x = 2 To lastrow 
      RequeryLandings .Cells(x, "G") 
     Next 
    End With 
    Application.ScreenUpdating = True 
End Sub 

Sub RequeryLandings(address As String) 
    Dim ws As Worksheet 
    Dim NewRow As Long 

    With Worksheets("Sheet2") 

     Set ws = ActiveWorkbook.Sheets("Sheet1") 

     With ws.QueryTables.Add(Connection:= _ 
     "URL;https://www.flightradar24.com/data/aircraft/" & address, _ 
     Destination:=ws.Range("$A$1")) 
      .Name = "NNum_Results.aspx?NNumbertxt=22NA" 
      .FieldNames = True 
      .RowNumbers = False 
      .FillAdjacentFormulas = False 
      .PreserveFormatting = True 
      .RefreshOnFileOpen = False 
      .BackgroundQuery = True 
      .RefreshStyle = xlInsertDeleteCells 
      .SavePassword = False 
      .SaveData = True 
      .AdjustColumnWidth = True 
      .RefreshPeriod = 0 
      .WebSelectionType = xlEntirePage 
      .WebFormatting = xlWebFormattingNone 
      .WebPreFormattedTextToColumns = True 
      .WebConsecutiveDelimitersAsOne = True 
      .WebSingleBlockTextImport = False 
      .WebDisableDateRecognition = False 
      .WebDisableRedirections = False 
      .Refresh BackgroundQuery:=False 

      DoEvents 

Above Code erhalten Daten von der Website https://www.flightradar24.com/data/aircraft/

und Schleifen durch aus Spalte G genommen unterschiedlichen Werte:

RequeryLandings .Cells(x, "G") 

so URL-Adresse ist in dieser Form

"URL;https://www.flightradar24.com/data/aircraft/" & address, 

wobei & Adresse die Werte aus Spalte G sind.

Wenn die erste Zeile in G-Säule ist SP-LRC dann sucht es URL

"URL;https://www.flightradar24.com/data/aircraft/SP-LRC" 

Ich versuche, Daten aus verschiedenen Website zu erhalten, die

http://www.airliners.net/search?registrationActual=SP-LRC&display=detail

ist und ich kann nicht herausfinden, wie der Code ändern sollte, um richtig für diese Adresse zu arbeiten ... in diesem Fall ist SP-LRC nicht am Ende der Adresse, sondern vor &display=detail

Answer 1

Diese string

http://www.airliners.net/search?registrationActual=SP-LRC&display=detail 

als

"http://www.airliners.net/search?registrationActual=" & "SP-LRC" & "&display=detail" 

So

ändern

"URL;https://www.flightradar24.com/data/aircraft/" & address 

zu

"URL;http://www.airliners.net/search?registrationActual=" & address & "&display=detail"