2,462
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim WINHttp As Object, str$, Url$
For i = 1 To 3
Set WINHttp = CreateObject("winhttp.winhttprequest.5.1")
Url = "https://www.alibaba.com/product-detail/2020-Fashion-New-Design-Simple-Ins_1600070193884.html"
WINHttp.Open "GET", Url, False
WINHttp.setRequestHeader "Referer","https://www.alibaba.com/sw.jsv=2.13.21&_flasher_manifest_=https://s.alicdn.com/@xconfig/flasher_classic/manifest"
WINHttp.send
str = WINHttp.responsetext
Range("a" & i) = str
Debug.Print str
Next
End Sub