Açık olan Pdf dosyasını kapatmak

[tahsinanarat]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
    pth = "C:\GEREKLİ\dilekçe_pdf\"
    fname = pth & "*" & Target.Value & "*.pdf"
    dosya = Dir(fname)
    If dosya <> "" Then
        dosya = pth & dosya
        ActiveWorkbook.FollowHyperlink dosya
    Else
        MsgBox "Dosya Bulunamadı..."
    End If
End Sub

Yukarıdaki kod ile belirtilen dosya içirisinde A sutununda yazılı olup eşleşen pdf dosyasını açıp manüel olarak kapatıyorum. Ben bunu diğer pdf dosyasını açkmak istediğinde açık olan PDEF dosyasının kapatılmasını istiyorum, Sonra yeni bastığım pdf dosyasının açılmasını istiyorum. Yardımcı olabilecek arkadaşlarıma şimdiden teşekkür ediyorum.

 

[halit3]

Bilgisayarınızda word prpğramı yüklü ise
Bu kod açık olan pdf dosyalarını kapatıyor.

Sub acik_olan()

Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
For Each Dosya In Tasks
If Dosya.Visible Then
If Tasks.exists(Dosya.Name) Then
deg1 = Split(Dosya.Name, "Adobe Reader")
If UBound(deg1) > 0 Then
MsgBox Dosya.Name
Tasks(Dosya.Name).Close
End If
End If
End If
Next
End Sub

 

[tahsinanarat]

Sn. Halit hocam çok teşekkür ediyorum, işimi gördü. Sağolasınız.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[kolay_ik]

Sn. Tahsin ve Halit hocam paylaştığınız kodları denedim fakat çalıştıramadım.