Hücrelerdeki dosyaları açıp yine hücrelerdeki isimle farklı kaydetme

[frekans]

A1'den A10'a kadar hücrelerde yer alan dosya adreslerindeki dosyaları açıp herbir dosyanın B1'den B10'a kadar hücrelerde yer alan adreslerle farklı kaydedilmesini döngü yardımı ile nasıl yapabilirim?

A sütunu B Sütunu
C:\ABC\asd.xls C:\1.xls
C:\ABC\def.xls C:\2.xls
C:\ABC\fgh.xls C:\3.xls

Aşağıdaki kodu daha önce hücrelerde adresleri yazan dosyaları açmak için kullanmıştım..Bu koda B sütununda yer alan adreslerle farklı kaydetmek için nasıl bir ekleme yapmam gerekir? Ayrıca C:'de 1.xls, 2.xls dosyaları varsa bunları replace için sorduğunda otomatik olarak evet demesi sağlanabilir mi?

Dim i As Byte
For i = 1 To 10
Workbooks.Open (ThisWorkbook.Sheets("Sayfa1").Cells(i, "A").Value)
On Error Resume Next
Next

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

for a=1 to [a65536].end(3).row
FileCopy cells(a,"a"), cells(a,"b")
next

 

[frekans]

Levent bey elinize sağlık..bir kaç gün netten uzaktım..teşekkürler