Serverda bulunan PDF dosyalarını açmak

[Ünsal Koç]

Merhaba,
Server üzerinde bulunan \\111.222.0.11\satis\2-GENEL ISLEYIS\Deneme\Form\ dosya yolunda bulunan M sütununda bulunan dosya isimleri bulunan pdf dosyalarına çift tıklayınca ilgili pdf dosyasını açmak istiyorum.

Konu hakkında destekleriniz rica ederim.

iyi çalışmalar,

 

[muhasebeciyiz]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim dosyaAdi As String
    Dim dosyaYolu As String
    Dim tamYol As String   
    
    If Target.Column = 13 Then
        Cancel = True
        dosyaAdi = Trim(Target.Value)
        
        If dosyaAdi <> "" Then
            dosyaYolu = "\\111.222.0.11\satis\2-GENEL ISLEYIS\Deneme\Form\"
            tamYol = dosyaYolu & dosyaAdi
            
            If Dir(tamYol) <> "" Then
                ThisWorkbook.FollowHyperlink tamYol
            Else
                MsgBox "Dosya bulunamadı: " & vbCrLf & tamYol, vbExclamation
            End If
        End If
    End If
End Sub

Hücrelerdeki dosya adları uzantılarıyla birlikte yazılmalı (örneğin: rapor1.pdf).
Hücre boşsa ya da dosya yoksa kullanıcıya uyarı mesajı gösterir.
M sütunundaki herhangi bir hücreye çift tıkladığınızda çalışır.

 

[muhasebeciyiz]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim dosyaAdi As String
    Dim dosyaYolu As String
    Dim tamYol As String   
    
    If Target.Column = 13 Then
        Cancel = True
        dosyaAdi = Trim(Target.Value)
        
        If dosyaAdi <> "" Then           
            If Right(dosyaAdi, 4) <> ".pdf" Then
                dosyaAdi = dosyaAdi & ".pdf"
            End If
            
            dosyaYolu = "\\111.222.0.11\satis\2-GENEL ISLEYIS\Deneme\Form\"
            tamYol = dosyaYolu & dosyaAdi
            
            If Dir(tamYol) <> "" Then
                ThisWorkbook.FollowHyperlink tamYol
            Else
                MsgBox "Dosya bulunamadı: " & vbCrLf & tamYol, vbExclamation
            End If
        End If
    End If
End Sub

PDF uzantısını kod içerisinde otomatik olarak ekleyelim. Böylece M sütunundaki hücreye sadece "rapor1" yazmanız yeterli olacak, VBA otomatik olarak bunu "rapor1.pdf" olarak işleyecek.

M sütunundaki hücreye rapor1 yazın.
Hücreye çift tıklayın.
Kod bunu rapor1.pdf olarak algılar ve \\111.222.0.11\satis\2-GENEL ISLEYIS\Deneme\Form\rapor1.pdf yolunu açar.