Scheint an einem internen Problem zu liegen.
Option Explicit
Sub Test123()
Dim httpReq As Object 'WinHttp.WinHttpRequest
Dim colUrls As VBA.Collection
Dim i As Long
' Set httpReq = New WinHttp.WinHttpRequest
Set httpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Set colUrls = New VBA.Collection
colUrls.Add "https://www.simcompanies.com/api/v2/players-by-company/Ironaxe-Ind./"
colUrls.Add "https://www.simcompanies.com/api/v2/players-by-company/Joogy.Corp/"
For i = 1 To colUrls.Count
httpReq.Open "GET", colUrls(i), False
httpReq.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
httpReq.SetRequestHeader "Accept-Language", "de,en-US;q=0.7,en;q=0.3"
httpReq.Send
With Cells(Rows.Count, "A").End(xlUp)
If .Value <> "" Then
.Offset(1, 0).Value = colUrls(i)
.Offset(1, 1).Value = httpReq.ResponseText
Else
.Offset(0, 0).Value = colUrls(i)
.Offset(0, 1).Value = httpReq.ResponseText
End If
End With
Next
Columns(1).AutoFit
Set httpReq = Nothing
End Sub
So funktioniert es.
Mehr kann man dazu nicht sagen
|