CommandButton da Köprü oluşturmak!!!!

[cortese]

Merhaba Arkadaşlar;

Ben commandbutton a köprü eklemek istiyorum. Örneğin iç yazışmalar düğmesine bastığım zaman belgelerim içindeki iç yazışma.doc dosyası açılsın veya personel listesine bastığım zaman personel.xls dosyası açılsın. bundan başka yazdır diye ayrı buton yaptım buna bastığım zamanda o sayfayı yazdırmak istiyorum. Şimdiden teşekkürler ...

 

[alpi]

excel dosyası açmak için
workbooks.open "dosyanın tam yolu adı"

word açmak için

dim wordaç as object
set wordaç = createobject("word.application")
wordaç.documents.open "dosya tam yolu adı"
wordaç.visible=true

 

[cortese]

Sayın alpi;

dediklerinizi aşağıdaki gibi yaptım;
Excel için;

Private Sub CommandButton1_Click()
Workbook.Open "C:\simpre.xls"
End Sub

Runtime Error 424 hatası veriyor.


Word için;

Private Sub CommandButton1_Click()
Dim wordaç As Object
Set wordaç = CreateObject("word.aplication")
wordaç.documents.Open "C:\kpds.doc"
wordaç.Visible = True
End Sub

Runtime Error 429 hatası verdi. Acaba neyi yanlış yapıyorum?

 

[alpi]

özür dilerim her iki kodda da hatalı yazmışım şimdi düzelttim yukarıda verdiğim kodları tekrar deneyiniz