VBA Save URL that Redirects to PDF

[aquickremark]

Hello,

We have a spreadsheet of URLs. These URLs redirect from one page to a specific PDF.

Does anybody have an idea of how to open the URL, let it redirect and then save the PDF?

The URLDownloadToFileA will save the original link only, and when I do SendKeys after waiting for the file to open, it still requires the user to click the 'Save' button.

We want to avoid having the user have any interaction.

Thanks!

 

[poolhall]

Generally speaking, you need to submit a GET request to your URL, get the server response, parse out a redirect link from the response, then submit a new request to follow this redirect link.

 

[aquickremark]

Generally speaking, you need to submit a GET request to your URL, get the server response, parse out a redirect link from the response, then submit a new request to follow this redirect link.

Do you have some sample code that I might be able to try out?

 

[poolhall]

It could be the first step. You'll have to add a reference to Microsoft XML, v6.0 (VBE - Tools - References):

Sub GetRedirectLink()Dim xmlReq As ServerXMLHTTP60
Dim response As String


Set xmlReq = New ServerXMLHTTP60
xmlReq.Open "GET", "http://yourURL"
xmlReq.send


If xmlReq.Status <> 200 Then MsgBox xmlReq.StatusDescription: Exit Sub
response = xmlReq.responseText

debug.print response


End Sub

Then from the string 'response' you need to extract the redirect link.