Hata mesajı

[domino]

Private Sub CommandButton7_Click()
Workbooks.Open ("D:\CARİ KARTLAR\" & TextBox8.Text)
End Sub

DOSYA İSMİ YANLIŞ GİRİLDİĞİNDE MACRO HATA VERİYOR.
Dosyaya ulaşılamadı şeklinde bir hata mesajı verebilmek için nasıl bir kod eklemeliyim.

 

[asi_kral]

Private Sub CommandButton7_Click()
Workbooks.Open ("D:\CARİ KARTLAR\" & TextBox8.Text)
End Sub

DOSYA İSMİ YANLIŞ GİRİLDİĞİNDE MACRO HATA VERİYOR.
Dosyaya ulaşılamadı şeklinde bir hata mesajı verebilmek için nasıl bir kod eklemeliyim.

Merhaba

Private Sub CommandButton7_Click()
Dim HT As Variant
On Error GoTo HT
Workbooks.Open ("D:\CARİ KARTLAR\" & TextBox8.Text)
Exit Sub
HT:
MsgBox "Dosyaya Ulaşamadım", vbCritical
End Sub

Bu kodu dener misiniz_?

 

[domino]

Her iki şekildede dosyaya ulaşamadım diyor

 

[asi_kral]

Her iki şekildede dosyaya ulaşamadım diyor

Doğru söyler çünkü siz dosya uzantısını yazmıyorsunuzdur. Textbox'ta
Örneğin.
aaa.xlsm
aa.xls
bbb.xlsx
veya buna benzer uzantılar yazmalısınız

 

[Murat OSMA]

Geçen günkü konuda şu kodu vermiştim;

workbooks.open("E:\CARİ KARTLAR\" & textbox8.text & ".xlsm")

 

[asi_kral]

Geçen günkü konuda şu kodu vermiştim;

workbooks.open("E:\CARİ KARTLAR\" & textbox8.text & ".xlsm")

Merhaba
Sayın Murat Osma
Uzantı sizce yanlış olmadı mı_?
Belki sadece 2003 versiyon kullanıyor belki de açtığı dosyada hiç makro yok nasıl olacak o zaman

 

[domino]

ASLINDA xlsm olmasına rağmen uzantıyı yazmasam da açıyor.
Bendeki hata farklıymış. Şöyleki dosyayla 2 farklı bilgisayarda birden çalıştığım için birinde sürücü e diğerinde d değiştirmeyi unutmuşum sorun çözüldü yani.
Bunada bir formül bulsak çok güzel olacak aslında
Teşekkür ederim.

 

[Murat OSMA]

Merhaba
Sayın Murat Osma
Uzantı sizce yanlış olmadı mı_?
Belki sadece 2003 versiyon kullanıyor belki de açtığı dosyada hiç makro yok nasıl olacak o zaman

Merhaba Mehmet Bey,

Bu konudaki 4. mesajda http://www.excel.web.tr/f48/dosya-actyrmak-t122088.html dosya uzantısının .xlsm olduğu belirtildiği için şimdi de .xlsm yazdım.

 

[asi_kral]

Merhaba Mehmet Bey,

Bu konudaki 4. mesajda http://www.excel.web.tr/f48/dosya-actyrmak-t122088.html dosya uzantısının .xlsm olduğu belirtildiği için şimdi de .xlsm yazdım.

Konu farkı o konuyu görmedim.

 

[asi_kral]

ASLINDA xlsm olmasına rağmen uzantıyı yazmasam da açıyor.
Bendeki hata farklıymış. Şöyleki dosyayla 2 farklı bilgisayarda birden çalıştığım için birinde sürücü e diğerinde d değiştirmeyi unutmuşum sorun çözüldü yani.
Bunada bir formül bulsak çok güzel olacak aslında
Teşekkür ederim.

Bu dosya o sürücüde mi yoksa masaüstünde mi_?

 

[domino]

bu dosya o sürücüde mi yoksa masaüstünde mi_?

hepsi aynı klasörde o sürücüde

 

[asi_kral]

hepsi aynı klasörde o sürücüde

Kodu bununla değiştirir misiniz_?

Private Sub CommandButton7_Click()
Dim HT As Variant, SRC As String
On Error GoTo HT
SRC = ThisWorkbook.Path
SRC = Left(SRC, 1)
Workbooks.Open (SRC & ":\CARİ KARTLAR\" & textbox8.Text)
Exit Sub
HT:
MsgBox "Dosyaya Ulaşamadım", vbCritical
End Sub

 

[domino]

kodu bununla değiştirir misiniz_?

private sub commandbutton7_click()
dim ht as variant, src as string
on error goto ht
src = thisworkbook.path
src = left(src, 1)
workbooks.open (src & ":\cari kartlar\" & textbox8.text)
exit sub
ht:
Msgbox "dosyaya ulaşamadım", vbcritical
end sub

hayret olmadı!

 

[asi_kral]

hayret olmadı!

Nasıl olmadı.
Ulaşmak istediğiniz dosya ile bu kodu kullandığınız dosya aynı sürücüde değil mi_?

 

[domino]

Malisef değilmiş sonradan anladım kusura bakmayın

 

[asi_kral]

Merhaba
O zaman size öncelikle sürücü buldurmalıyız. Bunun için kitabınızın kod bölümünde bir module oluşturun ve içerisine bu kodları kopyalayın.

Option Explicit
Global SRC As Variant
Sub auto_open()
Sürücü_Bul
End Sub
Private Sub Sürücü_Bul()
Dim FSO As Object, TÜM_SÜRÜCÜLER As Object
Dim SÜRÜCÜ As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TÜM_SÜRÜCÜLER = FSO.Drives
For Each SÜRÜCÜ In TÜM_SÜRÜCÜLER
If (SÜRÜCÜ.DriveType = 1 Or SÜRÜCÜ.DriveType = 2) And SÜRÜCÜ.IsReady Then
SRC = SÜRÜCÜ.DriveLetter
If FSO.folderexists(SRC & ":\CARİ KARTLAR") = True Then
Exit For
End If
End If
Next
End Sub

Daha sonra bu kodu kullanın.

Private Sub CommandButton7_Click()
Dim HT As Variant
On Error GoTo HT
Workbooks.Open (SRC & ":\CARİ KARTLAR\" & textbox8.Text)
Exit Sub
HT:
MsgBox "Dosyaya Ulaşamadım", vbCritical
End Sub

Ve deneyin.