excel içinde adobe çalıştırmak

[MAPUSTA25]

merhaba , excelde açılır listede seçtiğim ve d15 hücresine yazdırdığım mesela

21097-5

sonuç d: sorgu klasörü altında

21097-5.pdf ​

(aynı adla) pdf olarak kayıtlı düğmeye tanımladığım makroyla gidip bu pdf dosyasını açmak istiyorum. bu konuda yardımcı olursanız sevinirim. şimdiden teşekkür ederim.

 

[Haluk]

Sub Test()
    CreateObject("WScript.Shell").Run "D:\Sorgu\" & Range("D15").Text & ".pdf"
End Sub

.

 

[muygun]

Merhaba;
Alternatif:
Sayfanın kod bölümüne;

Sub açç()
açılacakk = "D:\sorgu\" & Cells(15, "d") & ".pdf"
If açılacakk <> "" Then
CreateObject("Shell.Application").Open (açılacakk)
End If
End Sub

Ekleyerek deneyin.
İyi çalışmalar.

 

[MAPUSTA25]

teşekkür ederim deniyorum.

 

[MAPUSTA25]

Sub Düğme6_Tıklat()
Dim RetVal
Dim D As String

D = Worksheets("Sayfa3").Range("E20").Value

D = "D:\excel çalışmalarım\serkan" & D & ".pdf"
RetVal = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & D, 1)
End Sub

bu şekilde yazdım ancak pdf bulamadım yazıyor

 

[Haluk]

Yukarıdaki örnekleri denediniz mi?

Not: Muhtemelen "........\serkan\" kısmında kırmızıyla işaretli yeri unutmuşunuzdur....

.