xps dosyasını çağırma

[gulvadi]

Merhaba
C:\Users\mali03500\Desktop\mesaj\gün.xps da bulunan gün adlı xps uzantılı dosyayı çağırman kod gerekli yardımcı olan arkadaşlara teşekkürler

 

[systran]

Dosya = "C:\Users\mali03500\Desktop\mesaj\gün.xps"
sonuc = Shell(Dosya, vbNormalFocus)

 

[gulvadi]

Kod hata veriyor

ub doyayıac()
    Workbooks.Open FileName:="C:\Users\mali03500\Desktop\mesaj\1lis.xls"
        Sheets("Sheet1").Select
        Call Formulle
    Windows("mesajla.xls").Activate
    Dosya = "C:\Users\mali03500\Desktop\mesaj\gün.xps"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
Dosya = "C:\Users\mali03500\Desktop\mesaj\gün.xps"
[COLOR="Red"]sonuc = Shell(Dosya, vbNormalFocus)[/COLOR]
End If
         End Sub

 

[systran]

bu şekilde dener misin?

Kod hata veriyor

[COLOR="Red"][B]S[/B][/COLOR]ub doyayıac()
    Workbooks.Open FileName:="C:\Users\mali03500\Desktop\mesaj\1lis.xls"
        Sheets("Sheet1").Select
        Call Formulle
    Windows("mesajla.xls").Activate
    Dosya = "C:\Users\mali03500\Desktop\mesaj\gün.xps"
If Dosya <> "" Then
Dosya = "C:\Users\mali03500\Desktop\mesaj\gün.xps"
[COLOR="Red"]sonuc = Shell(Dosya, vbNormalFocus)[/COLOR]
End If
         End Sub

 

[gulvadi]

Zaten o şekilde ben S yi kopyalarken unutmuşum

sonuc = Shell(Dosya, vbNormalFocus)

hatalı

 

[systran]

normalde xps dosyasına çift tıklama ile açılıyor mu?

 

[gulvadi]

xps çift tıklama ile çalışıyor o kodlar başka bir makronun içinde onun makro ile açılması gerekiyor.