PDF dosyasını açmak

Katılım
4 Haziran 2015
Mesajlar
3
Excel Vers. ve Dili
2010 türkçe
Excell de form butonuna pdf dosyasını açmak için bir makro buldum ancak açmak istediğim dosyanın ismini nereye yazacağım konusunda yardımcı olurmusunuz. Aldığım kod aşağıda

Sub BrowsePDFDocument()
Dim strDocument As String
strDocument = Application.GetOpenFilename("PDF Files,*.pdf,All Files,*.*", 1, "Open File", , False) ' get pdf document name
If Len(strDocument) < 6 Then Exit Sub
ActiveWorkbook.FollowHyperlink strDocument
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Arkadaşım,
Kod:
Sub BrowsePDFDocument()
       Dim strDocument As String
             strDocument = Application.GetOpenFilename("PDF Files,*.pdf,All Files,*.*", 1, "Open File", , False) ' get pdf document name
             If Len(strDocument) < 6 Then Exit Sub
       ActiveWorkbook.FollowHyperlink strDocument
End Sub
ifadesini yeni bir excel dosyası açıp bir module kopyalayın. Her hangi bir yere de komut düğmesi koyup bağlantı verin aşağıdaki gibi.
Kod:
Private Sub CommandButton1_Click()
    Call BrowsePDFDocument
End Sub
Basın düğmeye
Kolay gelsin
 
Katılım
4 Haziran 2015
Mesajlar
3
Excel Vers. ve Dili
2010 türkçe
Onu yaptım. tıkladığımda belgelerimi açıp dosya seçmemi istiyor.
Halbuki ben bu kodun içine tanımlayacağım ve yolunu belirteceğim dosyayı (c:/user/ben/belgelerim/deneme.pdf) direk açsın istiyorum.
tıpkı word belgelerini açtığımız gibi.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Alternatif kod

Kod:
Sub dosya_ac()

Dosya = "c:/user/ben/belgelerim/deneme.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub
 
Katılım
12 Kasım 2010
Mesajlar
12
Excel Vers. ve Dili
2017
İyi günler Arkadaşlar, excelde buton ekledim ve isim olarak "Kalite Plani" olarak adlandırdım. Butona bastığımda pdf formatında olan "Kalite Plani Rev.08" dosyasının açılmasını istiyorum. Aşağıdaki kod benim dosyamda malesef çalışmadı. Bu konuda yardımcı olabilirmisiniz. Teşekkürler.
Kod:
Sub dosya_ac()

Dosya = "c:/user/ben/belgelerim/deneme.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Kodda yer alan aşağıdaki satırı açmak istediğiniz dosyanın yolu ile değiştirmelisiniz.
Rich (BB code):
Dosya = "c:/user/ben/belgelerim/deneme.pdf"
 
Katılım
12 Kasım 2010
Mesajlar
12
Excel Vers. ve Dili
2017
Merhaba,
Kodda yer alan aşağıdaki satırı açmak istediğiniz dosyanın yolu ile değiştirmelisiniz.
Rich (BB code):
Dosya = "c:/user/ben/belgelerim/deneme.pdf"
İyi günler Ömer Bey değiştirip yazdım "C:/Users/cost_chief/Desktop/GESK/1-)KALITE PLANI (QA-QC PLAN)/A-)Kalite Plani/Abc.pdf" ama hala hata veriyor, daha doğrusu açmıyor.
 
Katılım
12 Kasım 2010
Mesajlar
12
Excel Vers. ve Dili
2017
Yazdığım kod bu ama çalıştırmıyor malesef;

Private Sub CommandButton4_Click()


Filename = "C:/Users/cost_chief/Desktop/Attendance List for NCR-152.pdf"
If Filename <> "" Then
CreateObject("Shell.Application").Open (Filename)
End If


End Sub
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Sayın Mahmut Bayram'ın önerisini uygulayınız...
Rich (BB code):
Private Sub CommandButton4_Click()

Filename = "C:\Users\cost_chief\Desktop\Attendance List for NCR-152.pdf"
If Filename <> "" Then
CreateObject("Shell.Application").Open (Filename)
End If

End Sub
 
Katılım
12 Kasım 2010
Mesajlar
12
Excel Vers. ve Dili
2017
İyi günler Ömer Bey,

Kodu söylediğiniz şekilde yazdım, ilk denemede çalıştı herhangi bir problem yaşamadım, ama kapatıp açtığımda dosyayı "referanced is not valid" uyarısı geldi. Dosya ekte, size zahmet bakabilirmisiniz. Çok teşekkür ederim.
 

Ekli dosyalar

Katılım
12 Kasım 2010
Mesajlar
12
Excel Vers. ve Dili
2017
İyi günler Ömer Bey, yukarıdaki kod ile pdf dosyasını açabildim, ve excelde ctrl+s yaptıktan sonra excel dosyasını kapattım. tekrar açtığımda macro çalışmadı ve "Macro çalışmıyor QDS Control Panel.xlsx!. Bu çalışma kitabında macro mevcut olmayabilir yada tüm makrolar devre dışıdır" böyle bir mesaj çıkıyor. Bu konuda yardımcı olabilirmisiniz. Nasıl bir yol izlemeliyim.
 

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Herkese iyi akşamlar alttaki kodla dosyaları excele kaydedebiliyorum ama excelde tıklanınca acılmıyor ama sadece form üzerinden açılıyor
Kod:
Private Sub CommandButton1_Click()
Dim fso As Object, ad As Object
ChDir ("C:\")
Dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="BİR DOSYA SEÇİNİZ...")
If Dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(Dosya)
TextBox9.Value = ad.Name    Uzantısız dosya adınını gösterir
TextBox8.Text = Dosya
End Sub
iki eksiğim var:
1. excelde de tıklanınca dosyanın acılır şekli ile kaydedilmesi hyperlik şeklinde
2.Textbox8 ve 9 un içeriğini temizlemek için nasıl bir kod yazılabilir.
 
Katılım
5 Temmuz 2017
Mesajlar
6
Excel Vers. ve Dili
türkçe 2010
İyi günler. Konuyla alakalı bir soru sorabilir miyim? Açılmak istenen PDF dosyası şifreli ve şifreyi kodla girmek mümkün müdür acaba?
 
Üst