Activex Komut Düğmesi İle PDF Dosyasını Açmak

[Elantra]

Merhabalar,

Aşağıdaki komutları denememe rağmen dosyayı bir türlü açıp aktive edemedim. Yardımcı olabilirseniz çok sevinirim. Vakit ayıran herkese şimdiden teşekkür ederim.

Shell "C:\Program Files\Adobe\Acrobat 6.0 CE\Reader\AcroRd32.exe " & "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"

Shell "AcroRd32.exe " & "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"

 

[TEGCreative]

Merhaba sayın elantra ;

Sub Pdf_Ac()
  Dim myFile As String
  myFile = Quote("C:\Users\SATIS2\Desktop\Eylül\xxx.pdf")
  Shell "CMD /c " & myFile
End Sub

Function Quote(str As String) As String
  If Left(str, 1) = """" Then
    Quote = str
    Else: Quote = """" & str & """"
  End If
End Function

Bu kodu düğmenize entegre edin ve deneyin lütfen

 

[halit3]

Alternatif kod

Sub aç()
Dosya = "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[TEGCreative]

Sayın halit3 ; kodunuz gerçekten canalıcı Ben windows'a entegre bir program olmadığından Shell ile çağıralamayacağı düşüncesi içerisindeydim ve bu yüzden komut dosyası ile anca açarız diyerek araştırıp yazdım arkadaşa. Kodunuzu görünce ufkum açıldı . Teşekkürler.

 

[Elantra]

Sayın halit3,

İlginiz için teşekkür ederim. Çok bilgim olmadığı için basit bir durum belki ama kodu butonun altına yapıştırıyorum ama hata alıyorum yanlış mı yapıyorum acaba?

Private Sub CommandButton6_Click()
Sub aç()
Dosya = "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[halit3]

Sayın halit3 ; kodunuz gerçekten canalıcı Ben windows'a entegre bir program olmadığından Shell ile çağıralamayacağı düşüncesi içerisindeydim ve bu yüzden komut dosyası ile anca açarız diyerek araştırıp yazdım arkadaşa. Kodunuzu görünce ufkum açıldı . Teşekkürler.

Teşekkürler iyi çalışmalar

 

[halit3]

Sayın halit3,

İlginiz için teşekkür ederim. Çok bilgim olmadığı için basit bir durum belki ama kodu butonun altına yapıştırıyorum ama hata alıyorum yanlış mı yapıyorum acaba?

Private Sub CommandButton6_Click()
Sub aç()
Dosya = "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

kodu böyle yapın

Private Sub CommandButton6_Click()
Dosya = "C:\Users\SATIS2\Desktop\Eylül\xxx.pdf"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[Elantra]

Sayın halit3,

Buton sayenizde çalıştı. Vaktinizi ayırdığınız ve ilgilendiğiniz için çok teşekkür ederim.

 

[halit3]

Sayın halit3,

Buton sayenizde çalıştı. Vaktinizi ayırdığınız ve ilgilendiğiniz için çok teşekkür ederim.

Teşekkürler iyi çalışmalar