Pdf Dosyası Görüntüleme

[mtozer]

Merhaba

Ağ üzerindeki bir klasorden pdf dosyalarını görüntüleyecek makroya ihtiyacım var. Yardımcı olursanız sevinirim. Örneğin A1 hücresine yazdığım isim (Mehmet001) ile pdf dosyasını açmalıyım. Yani A1 hücresine "Mehmet001" yazdığımda gidip C:\Arşiv\Mehmet001.pdf i bulmalı. Yol sabit ancak isimlendirme değişken. Dosyaların hepsi pdf.

iyi çalışmalar.

 

[mtozer]

Özür dilerim yolda da küçük bir fark var. Eğer yol belirtilmemiş ise C:\Arşiv\"A1".pdf aramalı Eğer A2 ' hücresine Ahmet yazılmış ise C:\Arşiv\Ahmet\"A1".pdf i çağırmak istiyorum.

 

[PLİNT]

Özür dilerim yolda da küçük bir fark var. Eğer yol belirtilmemiş ise C:\Arşiv\"A1".pdf aramalı Eğer A2 ' hücresine Ahmet yazılmış ise C:\Arşiv\Ahmet\"A1".pdf i çağırmak istiyorum.

Merhaba
Aşağıdaki kodları deneyin.

Private Sub CommandButton1_Click()
Dim pdf As Object
If [a1].Value = "" Then MsgBox "Dosya adını Yazınız": Exit Sub
If Dir("C:\Arşiv\", vbDirectory) = "" Then MsgBox "Arşiv Klasörü Yok."
If [a2].Value <> Empty Then
Klas = [a2].Value & "\"
If Dir("C:\Arşiv\" & Klas, vbDirectory) = "" Then
MsgBox "C:\Arşiv\" & Klas & " Klasörü Yok."
Exit Sub
End If: End If
Set ds = CreateObject("Scripting.FileSystemObject")
A = ds.FileExists("C:\Arşiv\" & Klas & [a1].Value & ".pdf")
If A = True Then
Set pdf = CreateObject("WScript.Shell")
pdf.Run "C:\Arşiv\" & Klas & [a1].Value & ".pdf"
Else
MsgBox "C:\Arşiv\" & Klas & [a1].Value & " PDF Dosyası Yok."
End If
End Sub