VBA Download PDF

Is it possible to download a PDF from the link on this page? When you click the page count (11) on this webpage:

http://recorder.maricopa.gov/recdocd...3=&doc4=&doc5=

it runs a sequence of events and produces a PDF. When you input just the hyperlink:

http://recorder.maricopa.gov/recdocd...Documents&suf=

After this link, it goes to:

http://156.42.40.50/UnOfficialDocs2/pdf/19930074944.pdf

And opens the PDF.

Is it possible to have VBA run this whole sequence and download the PDF? I have spent a lot of time researching, but can't find anything and I am not very knowledgeable with VBA. And help would be greatly appreciated. Thank you.

Hi !

It is not a VBA concern (as there is nothing standard in VBA to perform this !) but a Web and Windows understanding !
Via VBA, you could use Windows API like URLDownloadToFile if you know each time the URL of the file to download.
See examples all over the Web and API documentation on MSDN website …

First off, thank you so much for your help. I had to add "PtrSafe" to the declare function because I'm running 64 bit. So I'm getting 2 errors with the code. First:

Attachment 490020

When I debug, it shows:

Attachment 490021

The second error, which is likely related, is:

Attachment 490022

Debugging shows:

Attachment 490023

I've tried researching what the problem may be, but no luck. I'll keep trying. If you have any idea what it may be, that'd be greatly appreciated. Thanks again!

Accident. Please ignore.

Marc L,

So yeah, the code I was using that downloads via hyperlinks and is only working with documents I have already viewed. So cookie related. I've noticed that if you right-click and hit save link as, it saves the document. Is there any code to run that sequence? I can't find anything, but am determined. I'll look into that more once I figure out if I can get sourabhg's code to work.

You can read the link of an element in the href property of its fisrt children …

Yeah, sorry that didn't work. So the first error is a

Run-time error '13': Type mismatch

http://i.imgur.com/1d9JTqt.jpg

The debugger shows:

Set obj1 = IE.document.getElementByID("ct100_ContentPlaceHolder1_LnkPages") as the error

The second error is:

Run-time error '91': Object variable or with block variable not set

The debugger shows:

IE-Tab.Quit as the error

You're an awesome person for trying to help me. Thank you very much. I'm determined to find a way around this. Thanks!

Yeah, sorry that didn't work. So the first error is a

Run-time error '13': Type mismatch

The debugger shows:

Set obj1 = IE.document.getElementByID("ct100_ContentPlaceHolder1_LnkPages") as the error

http://i.imgur.com/6xw72Ez.jpg

The second error is:

Run-time error '91': Object variable or with block variable not set

The debugger shows:

IE-Tab.Quit as the error

http://i.imgur.com/gzu9hqb.jpg

You're an awesome person for trying to help me. Thank you very much. I'm determined to find a way around this. Thanks!

So from the href property of the page link (11) with its ID the PDF URL can be directly constructed
and without piloting IE but just via a request …

Marc,

What href? This:

http://recorder.maricopa.gov/recdocd...Documents&suf=

Because that gets an error.

Thanks Soura,

I tried that and it loops in:

For Each ele In IE.document.getelementsbytagname("a")
If InStr(ele.innertext, "11") > 0 Then
ele.Click
IE.Visible = False
Exit For
End If

Next

It looks like this code is specific to page 11, is that right? Some documents will have different page numbers. Thanks.

Originally Posted by theskyscraper1

What href?
Because that gets an error.

You just forgot to add the URL base address ! (HTML basics …)

File can be directly downloaded from the "11" link and, as I wrote, without any webbrowser ‼

Neither any reference or Windows API, just by requests :

PHP Code: 

Function RequestDownload$(URL$, ByVal FOLD$)
             Dim B() As Byte, F%, S$()
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", URL, False
        .SetRequestHeader "DNT", "1"
        On Error GoTo Fin
        .Send
     If .Status = 200 Then
         If Right(FOLD, 1) <> "\" Then FOLD = FOLD & "\"
            S = Split(.Option(1), "/")
         S(0) = FOLD & S(UBound(S))
            B = .ResponseBody
            F = FreeFile(1)
         Open S(0) For Binary As #F
         Put #F, , B
         Close #F
         RequestDownload = S(0)
     End If
Fin:
    End With
End Function

Sub Demo1()
    Const ORI = "http://recorder.maricopa.gov/recdocdata/", _
          URL = ORI & "GetRecDataDetail.aspx?rec=19930074944&bdt=1/1/1947&edt=11/18/2016", _
          LNK = "<a id=""ctl00_ContentPlaceHolder1_lnkPages"""
      Dim SP$()
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", URL, False
        .SetRequestHeader "DNT", "1"
        On Error Resume Next
        .Send
        On Error GoTo 0
        If .Status <> 200 Then Beep: Debug.Print .Status & " : " & .StatusText: Exit Sub
        SP = Split(.ResponseText, LNK):  If UBound(SP) < 1 Then Beep: Exit Sub
    End With
        SP = Split(Split(SP(1), "</a>")(0), "href="""):  If UBound(SP) < 1 Then Beep: Exit Sub
        SP(0) = RequestDownload(ORI & Split(SP(1), """")(0), ThisWorkbook.Path)
        If SP(0) > "" Then MsgBox "File downloaded to " & vbLf & vbLf & SP(0), vbInformation Else Beep
End Sub 


Or …

PHP Code: 

Sub Demo2()
    Const ORI = "http://recorder.maricopa.gov/recdocdata/", _
          URL = ORI & "GetRecDataDetail.aspx?rec=19930074944&bdt=1/1/1947&edt=11/18/2016"
      Dim oDoc As Object, oElt As Object, S$
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", URL, False
        .SetRequestHeader "DNT", "1"
        On Error Resume Next
        .Send
        On Error GoTo 0
        If .Status <> 200 Then Beep: Debug.Print .Status & " : " & .StatusText: Exit Sub
        Set oDoc = CreateObject("htmlfile")
            oDoc.Write .ResponseText
    End With
        Set oElt = oDoc.all("ctl00_ContentPlaceHolder1_lnkPages")
    If oElt Is Nothing Then
        Beep
    Else
        S = RequestDownload(Replace$(oElt.href, "about:", ORI), ThisWorkbook.Path)
        Set oElt = Nothing
        If S > "" Then MsgBox "File downloaded to " & vbLf & vbLf & S, vbInformation Else Beep
    End If
        Set oDoc = Nothing
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

I do not know as on my side with different Windows version both procedures well download file without any issue …

Try to progress in code in step by step mode to see where the beep occurs …

Thanks for the response! I've done that already and Demo 1 Ends after passing through:

SP(0) = RequestDownload(ORI & Split(SP(1), """")(0), ThisWorkbook.Path)

It doesn't go to:

If SP(0) > "" Then MsgBox "File downloaded to " & vbLf & vbLf & SP(0), vbInformation Else Beep
End Sub

Demo 2 ends after passing through:

S = RequestDownload(Replace$(oElt.href, "about:", ORI), ThisWorkbook.Path)

It doesn't go to:

Set oElt = Nothing
If S > "" Then MsgBox "File downloaded to " & vbLf & vbLf & S, vbInformation Else Beep
End If
Set oDoc = Nothing
End Sub

Could you attach your work? I'd like to see how it's supposed to end/work? This would be way better than the IE option. Thanks again!

All code is located in a standard module, nothing more, no reference …

You want the pdf file result as an attachment ?! It is the same if you manually download it …