Soweit ich verstanden habe, müssen Sie für jede Zeile eine Abfragetabelle erstellen, da die Daten-URL für jede Zeile unterschiedlich / eindeutig ist. Alternativ können Sie eine einzelne Abfragetabelle verwenden und über alle Zeilen iterieren, die Verbindungs-URL der Tabelle in jeder Iteration aktualisieren und die abgerufenen Daten mit einem VBA-Snippet wie folgt in die entsprechende Zeile abrufen (Haftungsausschluss: nicht getestet ):
' 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