level 12
花间一壶酒🍄
楼主
Sub dd()
Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", "https://baike.so.com/doc/2508820-2651079.html", False
http.send ""
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub
2018年11月16日 12点11分
1
Dim http
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", "https://baike.so.com/doc/2508820-2651079.html", False
http.send ""
If http.Status = 200 Then
Range("a1") = http.responseText
End If
End Sub
