This is giving me a headache. Below is my code. This forum does not let me post URLs, which is ever so silly. Where it says "URL =" in the code below, enter any (URL in quotation marks) from a bibliography page listed on espacenet, e.g. for patent Nr. KR20190082024.
The responsetext seems to return the web page header, but of course I want to grab the body. Using the InternetExplorer.Application object is no option; this is slow and prone to error.
Please help.
Sub text()
Dim WebQuery As New MSXML2.XMLHTTP60
Dim URL As String
' URL added by mod
URL = "https://worldwide.espacenet.com/publicationDetails/biblio?DB=EPODOC&II=0&ND=3&adjacent=true&locale=en_EP&FT=D&date=20190709&CC=KR&NR=20190082024A&KC=A#"
WebQuery.Open "GET", URL, False
WebQuery.send
If WebQuery.Status <> 200 Then
Cells(1,1) = WebQuery.Status & " : " & WebQuery.StatusText
Exit Sub
End If
Cells(1, 1) = WebQuery.ResponseText
End Sub
Bookmarks