Word dosyasındaki makro ile Excel Dosyası Nasıl Açılır

[dfom_2004]

Word dosyasının içinden bir makro çalıştırarak excel dosyasını açmak istiyorum

Workbooks.Open FileName:=ActiveWorkbook.Path & "\satis.xls"

object not found hatası alıyorumm

Yardımlarınız için teşekkürler

 

[Zeki Gürsoy]

Set  XL = CreateObject("Excel.Application")
 
XL.Workbooks.Open _
ActiveDocument.Path & "\satis.xls"
 
XL.Visible = True
 
Set XL = Nothing

Ya da,

Set  Shel = CreateObject("Shell.Application")
 
Shel.Open _
ActiveDocument.Path & "\satis.xls"
 
Set Shel = Nothing