Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Sub a()
Dim XMLreq As New MSXML2.XMLHTTP60
Dim htmldoc As New MSHTML.HTMLDocument
Dim reqbody As String
Url = "https://api.trendyol.com/sapigw/suppliers/****/products?page=0&size=50&approved=True"
XMLreq.Open "POST", Url, False
XMLreq.setRequestHeader "User -Agent", "**** - *****"...