Kapalı dosyadan veri alma hata?

[mars2]

İyi Günler;

Bir klasörün içinde 2009 adlı bir klasör bulunmakta ve bu klasör içinde 2009 ve devamı yıllarına iat çalışma kitapları bulunmakta, aşağıdaki makro ile bu yıllardan veri almaktayım . Ancak hata vermektedir kaynağı nedir ve nasıl çözebiliriz.

Sub verial()
On Error Resume Next
Sheets("yıllar").Range("B21:Q32").Value = ""
Dim Yıl, Klasör, Dosya, Yol, isim As String
Application.ScreenUpdating = False
Klasör = "D:\Bankaya yatanlar\2009 yili ve devami\"
isim = [B12].Value
For i = 2 To 17 'YILLAR İÇİN
Yıl = Cells(20, i).Value
Dosya = Yıl & ".xls"
For j = 6 To 90 'İSİMLER İÇİN
Yol = "'" & Klasör & "[" & Dosya & "]" & "toplam'!R" & j & "C"
If isim = ExecuteExcel4Macro(Yol & 3) Then
For k = 21 To 32 ' AYLAR İÇİN
'ay = Cells(k, 1).Value
Cells(k, i) = ExecuteExcel4Macro(Yol & k - 17)
Next k
End If
Next j
Next i
Application.ScreenUpdating = True

End Sub

 

[Orion1]

Yol=thisworkbook.path & "\"

Yukarıdaki şekilde yapın.Ama sizin hücreden veri alma kodunuzda yanlış.

 

[mars2]

Sayın evren,
cevabınız için teşekkürler.
Yukarıdaki şekilde yapın.Ama sizin hücreden veri alma kodunuzda yanlış diyorsunuz kodu düzelterek eklerseniz sevinirim. neyin yanlış olduğunu daha iyi görmüş oluruz.

 

[Orion1]

Sayın evren,
cevabınız için teşekkürler.
Yukarıdaki şekilde yapın.Ama sizin hücreden veri alma kodunuzda yanlış diyorsunuz kodu düzelterek eklerseniz sevinirim. neyin yanlış olduğunu daha iyi görmüş oluruz.

Ben yol satırını görmemiştim.Ondan dedim.Ama Eğer netice alıyorsanız mesele yoktur.

 

[mars2]

Cevaplarınız için teşekkürler. Ancak hata vermektedir. Daha önceden gönderdiğim örnek üzerinde uygulama yaparak eklerseniz sevinirim.