son indirilen dosyayı açma/yazdırma

[burhancavus61]

Kodlarla pdf dosya indiriyorum. Amacım son indirdiğim PDF dosyasının açılmasını sağlamak. "EPDK bülteni indirildi..." mesajından sonra thisworkbook klasöründen son indirilen PDF dosya açılabilirmi? Klasörde başka pdf dosyalarıda mevcut. indirlen dosya hemen açılsın veya yazdırılsın istiyorum. Her iki türlüde işim görülür. Teşekküreler

    sor = MsgBox("" & Range("A1") & " Tarihli EPDK Bülteni indirilsin mi?", vbYesNo)
    If sor = vbYes Then
    baglan.Wait 300
    baglan.FindElementByXPath("/html/body/div[3]/div/table/tbody/tr[1]/td/form/table/tbody/tr/td[5]/a/img").Click
    baglan.Wait 300
    MsgBox "EPDK bülteni indirildi...", vbInformation
    End If

 

[Korhan Ayhan]

Merhaba,

Benzer bir konu olduğu için paylaşmak istedim. Sanırım kendinize uyarlayabilirsiniz.

En son indirilen exceli makro ile açmak

arkadaşlar uğraştım yapamadım, olsa büyük kolaylık olacak benim için, normalde makro ile indirilenler klasörünü açıyor oradan seçtiğim exceli açıyor ve programa yüklüyorum, direk en son indirilen exceli otomatik seçip yükleme yapabilir miyiz acaba, yüklenecek excel isimleri İşletme_Raporu...

www.excel.web.tr

 

[burhancavus61]

Teşekkürler hocam inceliyorum

 

[burhancavus61]

Teşekkür ederim hocam halloldu. Kodları aşağıdaki şekilde deneme yanılma ile revize ettim.

Sub Last_File_Open()
    Dim FSO As Object, Source_Folder As Object
    Dim My_Path As String, My_File As Object
    Dim My_File_Extension As String
    Dim Last_Date As Date, Last_File As String
    
    My_Path = ThisWorkbook.Path
    My_File_Extension = "pdf"
    
    Set FSO = VBA.CreateObject("Scripting.FileSystemObject")
    Set Source_Folder = FSO.GetFolder(My_Path)

    For Each My_File In Source_Folder.Files
        If My_File.DateLastModified > Last_Date Then
            If InStr(1, FSO.GetExtensionName(My_File), My_File_Extension) > 0 Then
                Last_File = My_File
                Last_Date = My_File.DateLastModified
            End If
        End If
    Next
    
    pdf = Last_File
    CreateObject("Shell.Application").Open (pdf)

'    MsgBox Last_File
End Sub