ExecuteExcel4Macro'da Yazım Yanlışı

[memoli]

Aşağıda kodlarını verdiğim makroda yazım yanlışı var diyor, fakat nerede hata var bulamadım. Yardım ederseniz sevinirim.

Private Sub CommandButton1_Click()
son_sat = 0
a = 17
alınacakdosya = ComboBox1.Value
Yol = "\\Yedek\Belgeler\2008\2008\"
sayfa = "Sayfa1"
hepsi = " '" & Yol & "[" & alınacakdosya & "]" & sayfa & "'!R"
1 If ExecuteExcel4Macro(hepsi & a & "C5") <> 0 Then
son_sat = son_sat + 1
a = a + 1
GoTo 1
Else
End If
For a = 17 To 56
Range("A" & a - 16) = IIf(ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C5") = 0, "", ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C5"))
Range("B" & a - 16) = IIf(ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C5") = 0, "", ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C6"))
Range("C" & a - 16) = IIf(ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C5") = 0, "", ExecuteExcel4Macro("'D:\[Kitap1.xls]Sayfa1'!R" & a & "C7"))
Next
Range("IV1:IV100").ClearContents
End Sub

 

[memoli]

Gerçekten bu kadar zor mu?

 

[hsayar]

Yol = "\\Yedek\Belgeler\2008\2008\"

burada driver belirtilmemi&#351; sisteminizde ise
Yol = "c:\Yedek\Belgeler\2008\2008\"
&#351;eklinde

a&#287;da ise a&#287; kom&#351;ular&#305;mda sa&#287; t&#305;klayarak a&#287; s&#252;r&#252;c&#252;s&#252;ne ba&#287;lan diyerek bir drivera al&#305;n
mesala z:
Yol = "z:\Yedek\Belgeler\2008\2008\"

veya bilgisayar ad&#305;n&#305;da yaz&#305;n ama nas&#305;l olaca&#287;&#305; hakk&#305;nda bir fikrim yok

 

[memoli]

&#304;lginize te&#351;ekk&#252;r ederim.
ExecuteExcel4Macro komutunun yaz&#305;l&#305;&#351;&#305;nda bir hata var m&#305;?

 

[memoli]

Ayn&#305; sat&#305;r&#305; a&#351;a&#287;&#305;daki gibi yaz&#305;nca makro &#231;al&#305;&#351;&#305;yor.

1 If ExecuteExcel4Macro("'\\Yedek\Belgeler\2008\2008\[Kitap1.xls]Sayfa1'!R" & a & "C5") <> 0 Then

Ben yolu, dosyay&#305;, sayfay&#305; de&#287;i&#351;ken yapmak i&#231;in b&#246;yle yazm&#305;&#351;t&#305;m. Fakat yaz&#305;m hatas&#305; var diyor.