vba ile pdf dosyası açtırma

[badmad34]

merhaba,

Private Sub CommandButton_Click()

If ESN_ListBox.Value = "695267" Then
        If Dir("T:\ENGINEERING\2010.pdf") = "" Then
        MsgBox "The document could not be found in the engine folder!", vbCritical, "FYI"
        Else
        [COLOR="Red"]' Burada "T:\ENGINEERING\2010.pdf" dosyasını açtıracak kodun yazılması gerek[/COLOR]
        End If
End If

End Sub

excel vba ile bir commandbutton'a tılayarak yerel diskimdeki bir pdf dosyası açtırmak için yukarıda görüldüğü gibi bir kod yazmaya çalıştım ama başaramadım. forumda da araştırdım ama soruma cevap olan bir çalışma bulamadım. yardımcı olabilir misiniz?

 

[hamitcan]

Öncelikle, forumda arama yapın.
http://www.excel.web.tr/f48/makro-ile-pdf-acma-t59306.html

 

[badmad34]

yönlendirdiğiniz çalışma da dahil olmak üzere birkaç çalışmayı zaten inceledim ama soruma cevap bulamadım. benim istediğim çok daha basit bir şey: bir commandbutton'a basılınca yerrel diskimde belli bir konumda bulunan pdf dosyası açılsın istiyorum. (farklı formatlarda dosyalarda olabilir, mp3, img vs). bunu nasıl yapabiliriz?

 

[Zeki Gürsoy]

Kırmızı satıra şunu yazın.

CreateObject("Shell.Application").Open [COLOR=Black]"T:\ENGINEERING\2010.pdf"[/COLOR]

 

[badmad34]

teşekkür ederim.

 

[badmad34]

Kırmızı satıra şunu yazın.

CreateObject("Shell.Application").Open [COLOR=Black]"T:\ENGINEERING\2010.pdf"[/COLOR]

şimdi deneme fırsatı buldum ama bu kodla çalıştıramadım. aşağıda yazdığım şu kodla çalıştırabiliyorum ama benim istediğim bilgisayarın varsayılan programı kendi bulup çalıştırması. böle bir kod nasıl derlenebilir?

        Shell "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe " & "T:\ENGINEERING\2010.pdf", vbMaximizedFocus

 

[ottoman71]

şimdi deneme fırsatı buldum ama bu kodla çalıştıramadım. aşağıda yazdığım şu kodla çalıştırabiliyorum ama benim istediğim bilgisayarın varsayılan programı kendi bulup çalıştırması. böle bir kod nasıl derlenebilir?

        Shell "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe " & "T:\ENGINEERING\2010.pdf", vbMaximizedFocus

Teşeşkkür ederim.
İyi çalışmalar.

 

[badmad34]

Rica ederim, size de iyi çalışmalar.