MAİLE DOSYA EKLEME de HATA

[atöz]

Merhaba,

Private Sub CommandButton3_Click()
dosya1 = Application.GetOpenFilename
If dosya1 = False Then
MsgBox "Dosya eklenmedi"
End If
End Sub

kodları ile dosya seçip "aç" yaptığımda "type mismatch" hatası veriyor. Aslında dosya eklediğimde "dosya eklendi" , dosya eklenmeyip vazgeçildiğinde "dosya eklenmedi" mesajı verdirmek istiyorum. yardımlar için teşekkürler.

 

[Recep İpek]

Aşağıdaki kodu deneyebilirmisiniz?

Sub Gönder()
dosya1 = Application.GetOpenFilename
If dosya1 = False Then
MsgBox "Dosya eklenmedi"
Exit Sub
Else
MsgBox "Dosya eklendi"
Exit Sub
End If
End Sub

 

[atöz]

Sn Ripek,

dosya seçmeyip iptal dediğimde hata vermiyor ama dosya seçip gönder dediğimde yine If dosya1 = False Then satırında type mismatch hatası veriyor.Çözemedim...

 

[Recep İpek]

Örnek bir dosya ekleyebilirmisiniz?

 

[atöz]

merhaba,

örnek bir dosya ektedir.

 

[Recep İpek]

Aşağıdaki şekilde denermisiniz?

Private Sub CommandButton3_Click()
dosya1 = Application.GetOpenFilename
If dosya1 = "False" Then
MsgBox "Dosya eklenmedi"
Exit Sub
Else
MsgBox "Dosya eklendi"
Exit Sub
End If
End Sub

 

[atöz]

tamamdır sn ripek çok teşekkürler..