userform da word belgesi çağrılabiliyor acaba scan edilen bir belgede çağrılabilirmi

[bulentcigali]

iyi günler
Shell "WINWORD.EXE " & "C:\" & sayı & ".doc", vbNormalFocus ile word belgesi
Shell "EXCEL.EXE " & "C:\" & sayı & ".xls", vbNormalFocus ilede excel sayfası userform üzerinden bir buton yardımı ile ulaşılıp sayfa açılabiliyorum.ben taranmış bir belge veya pdf formatında olan bir belgeyi aynı mettotla açabilirmiyim.ekte tüm açıklamaları ve uygulamayı gönderiyorum.yardım ederseniz sevineceğim teşekkürler.

 

[Ayhan Ercan]

Merhaba Yollamış olduğunuz dosya ile sorunuzu bağdaştıramadım.

Yalnış bir dosya yolladınız herhalde..

Birde aşağıdaki gibi denermisiniz. (AcrobatReader9 için)

Shell "AcroRd32.exe" & "C:\" & sayı & ".pdf

 

[bulentcigali]

sayın ayhan ercan
bir açıklama gönderdim birde text olarak excel programı ilave ettim excel dosyasını açtığınıda gelen evrak işlemleri altında çalışan userformda işlem yapmıştım onu açıklama notunda izah etmeye çalıştım.teşekkür ederim gönderdiğiniz kodu deneyeceğim

 

[Mahmut Bayram]

Ayhan beyin kodu çalışmazsa bir de bunu deneyin.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
ShellExecute 0, vbNullString, "[B]C:\cilt.pdf"[/B], vbNullString, vbNullString, 1
End Sub

dosyanızın yolunu kalın puntolu yere yazabilirsiniz.

 

[bulentcigali]

sayın mahmutt
ilginize teşekkür ederim
Private Sub CommandButton9_Click()
sayı = TextBox1.Value
'Shell "excel.EXE " & "C:\" & sayı & ".xls", vbNormalFocus
'Shell "WINWORD.EXE " & "C:\" & sayı & ".doc", vbNormalFocus
Shell "Mspaint.EXE " & "C:\" & sayı & ".tif", vbNormalFocus
End Sub

ile word,excel ve taradığım bir resmi yukardaki komutlarla hallettim yanlızca pdf kaldı bunuda herhalde sizinle çözebileceğiz sağolun

 

[Mahmut Bayram]

Kodu şu şekilde kullanırsanız açar.
Kullanacağınız komutun önündeki ' tek tırnak işaretini kaldırınız.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CommandButton9_Click()
sayı = TextBox1.Value
'Shell "excel.EXE " & "C:\" & sayı & ".xls", vbNormalFocus
'Shell "WINWORD.EXE " & "C:\" & sayı & ".doc", vbNormalFocus
'Shell "Mspaint.EXE " & "C:\" & sayı & ".tif", vbNormalFocus
ShellExecute 0, vbNullString, "[B]C:\cilt.pdf[/B]", vbNullString, vbNullString, 1
End Sub

Gene aynı şekilde dosya yolunu kalın puntolu olan yere yazınız.
Kolay gelsin.

 

[bulentcigali]

sayın mahmutt iyi akşamlar dediğinizi yaptım yine pdf i ekrana getirtemedim ama ben bir çözümünü buldum biraz acamice olabilir ama sorunumu hallettim sizede gönderiyorum yinede ilginize teşekkür ediyor iyi çalışmalar diliyorum.


Private Sub CommandButton9_Click()
sayı = TextBox1.Value
Shell "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe " & "C:\" & sayı & ".pdf", vbNormalFocus
End Sub