Soru Workbooks.Open Hatası??

[sefa044]

If Dir("C:\Zarf Açma Belgeleri.xlsm") <> "" Then
Workbooks.Open ("C:\Zarf Açma Belgeleri.xlsm")
End If

Arkadaşlar bu makro çalışırken C de dosyayı bulursa sorun yok.ama bulamazsa arıyor duruyor. excel yanıt vermiyor.çöküyor.
Buna süre atasak mesela 2 sn boyunca arasın bulamazsa bir sonraki satıra geçsin.mümkün mü acaba?

 

[Muzaffer Ali]

Merhaba.

Aslında yukarıdaki kodlar ile öyle bir sorun yaşamamanız lazım ama bir de şu kodları deneyin.

Sub DosyaAc()
    Dim Dosya As Object
    Set Dosya = CreateObject("Scripting.FileSystemObject")
    If Dosya.FileExists("C:\Zarf Açma Belgeleri.xlsm") Then
        Workbooks.Open ("C:\Zarf Açma Belgeleri.xlsm")
    End If
End Sub

 

[sefa044]

Merhaba.
Aslında yukarıdaki kodlar ile öyle bir sorun yaşamamanız lazım ama bir de şu kodları deneyin.

Sub DosyaAc()
    Dim Dosya As Object
    Set Dosya = CreateObject("Scripting.FileSystemObject")
    If Dosya.FileExists("C:\Zarf Açma Belgeleri.xlsm") Then
        Workbooks.Open ("C:\Zarf Açma Belgeleri.xlsm")
    End If
End Sub

Denedim olmuyor.

 

[halit3]

Birde bunu dene

Sub DosyaAc()
Dosya = "C:\Zarf Açma Belgeleri.xlsm"
Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
If fL.FileExists(Dosya) = True Then
Workbooks.Open (Dosya)
End If
End Sub