kodlarda farklılık

[enes2000eren]

slm.herkese iyi akşamlar.arkadaşlar aşağıdaki makro bir modülde yazılı:
Sub asd(dosyayolu As String)
Workbooks.Open Filename:=dosyayolu
End Sub
buttonda da şu kod yazılı:
Private Sub CommandButton53_Click()
'...................
'...................
'...................
Call asd(TextBox4)
'...................
'...................
'...................
Unload Me
End Sub
excel dosyalarını açıyor.fakat word dosyalarında hata veriyor.acaba sebebi nedir?
run time error "1404"
dosya biçimi geçerli değil diyor.tşk.

 

[exam77]

Workbooks.Open Filename:=dosyayolu

Çalışma kitabı açmak istediğinizi belirtiyorsunuz yani excel dosyasını. Bu durumda word dosyasını açmak isteyince haliyle hata mesajı vermesi gayet doğaldır...