ScooterNorm
New Member
- Joined
- Feb 25, 2024
- Messages
- 22
- Office Version
- 2016
- Platform
- Windows
Excel Version (Office 2016)
Excel Environment (desktop, Windows)
Knowledge Level - Intermediate level
I'm trying to scrape off the USPTO website. When I do a manual search the URL is: https://tsdr.uspto.gov and I enter a serial number (i.e. 79349658), press the status button and the search is executed and the results are returned.
The resulting URL of the search page is:
https://tsdr.uspto.gov/#caseNumber=...TION&caseType=DEFAULT&searchType=statusSearch
When I try to execute this with VBA, it returns the tsdr.uspto.gov web page, not the result of the search. Any idea what I'm doing wrong?
Here's the code,
Sub Test()
Dim ht As HTMLDocument
Dim IE As InternetExplorer
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("Trademark Status & Document Retrieval" & _
"&caseSearchType=US_APPLICATION" & _
"&caseType=DEFAULT" & _
"&searchType=statusSearch")
Do Until IE.readyState = READYSTATE_COMPLETE And IE.Busy = False
DoEvents
Loop
Set ht = IE.document
'IE.Quit
End Sub
Excel Environment (desktop, Windows)
Knowledge Level - Intermediate level
I'm trying to scrape off the USPTO website. When I do a manual search the URL is: https://tsdr.uspto.gov and I enter a serial number (i.e. 79349658), press the status button and the search is executed and the results are returned.
The resulting URL of the search page is:
https://tsdr.uspto.gov/#caseNumber=...TION&caseType=DEFAULT&searchType=statusSearch
When I try to execute this with VBA, it returns the tsdr.uspto.gov web page, not the result of the search. Any idea what I'm doing wrong?
Here's the code,
Sub Test()
Dim ht As HTMLDocument
Dim IE As InternetExplorer
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("Trademark Status & Document Retrieval" & _
"&caseSearchType=US_APPLICATION" & _
"&caseType=DEFAULT" & _
"&searchType=statusSearch")
Do Until IE.readyState = READYSTATE_COMPLETE And IE.Busy = False
DoEvents
Loop
Set ht = IE.document
'IE.Quit
End Sub