Makro ile açık olan PDF dosyalarını kapatma (CTRL+Q)

[kolay_ik]

Merhabalar

Form sayfası A1 hücresinde PDF dosyasına ait isim yer alıyor. Makro ile açık olan A1 hücresinde adı yazan masaüstündeki PDF dosyasını nasıl kapatabilirim? CTRL+Q tuş kombinasyonunu denedim fakat işe yaramadı.

Teşekkürler,

 

[Haluk]

Adobe Acrobat ile açılmış olan tüm PDF dosyalarını kapatır;

Sub Test()
    Dim MyProg As String, Process As Object
    
    MyProg = "Acrobat.exe"
    
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & MyProg & "'")
        Process.Terminate
    Next
End Sub

.

 

[kolay_ik]

Haluk hocam teşekkürler. Kodlar sorunsuz çalıştı.