Dim url As String = "甲苯酯"
Dim http As New Object
try
url = "https://www.chemsrc.com/searchResult/" & UrlEncode(url) & "/"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
url = http.responseText
Catch exii As Exception
End try