Sub PDF_Programini_Baslatma()
 
    Dim AdobeApp As String
    Dim AdobeFile As String
    Dim StartAdobe
    
    AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
    AdobeFile = "C:\users\kullanici\desktop\RDS\dosyaAdi.pdf" 'Buraya dosyanın yerini ve adını girin.
    
    StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
    
    Application.OnTime Now + TimeValue("00:00:05"), "FirstStep"
 
End Sub
Private Sub ikinci_adim()

Bu sadece pdf olarak indirmeye yarar belki işinize yarar ama filitreleyerek istediğin veri alma konusunda bende bir şey diyemem . Yapan olursa kullanırım o kodları takipteyim.