Excel Üzerinden Kayıtlı Word Belgesi Açmak

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar, Excel üzerinden, kayıtlı Word belgesini açmak istiyorum. Dosya yolu şu,
"e:\personel\htiken", belge ismide "A"'dır, bunu kodlarla nasıl açabiliriz?, yardımlarınız için şimdiden teşekkür ediyorum, hayırlı günler diliyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub WORD_BELGESİ_AÇ()
    CreateObject("Shell.Application").Open "C:\DENEME.doc"
End Sub

Ya da aşağıdaki şekilde de kullanabilirsiniz.

Option Explicit
 
Sub WORD_BELGESİ_AÇ()
    Dim DOSYA
    If Dir("C:\DENEME.doc") <> "" Then DOSYA = Shell("WINWORD.EXE " & """C:\DENEME.doc""", vbMaximizedFocus)
End Sub

 

[Seyit Tiken]

Korhan bey teşekkür ediyorum, Allah razı olsun.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma alternatif bir kod daha ekledim. O koduda kullanabilirsiniz.