Hucreden dosya açmak ve kapatmak

[frekans]

A1’den A10’a kadar olan hücrelerde tanımlanmış;

C:\ABC\abc.xls
C:\ABC\def.xls
…

gibi dosyaları açmak ve ardından yine hücre isimlerinden yola çıkarak aynı dosyaların kapanmasını istiyorum..Dongu yardımı ile yapılabilir mi? Yardımcı olursanız sevinirim teşekkürler..

 

[Orion1]

aşağdaki kodları deneyiniz.

Sub ac()
Dim i As Byte
For i = 1 To 10
    Workbooks.Open (Cells(i, "A").Value)
Next
End Sub
Sub kapa()
Dim i As Byte, ds, dosya As String
For i = 1 To 10
ds = Split(Cells(i, "A").Value, "\")
dosya = ds(UBound(ds))
Workbooks(dosya).Close
End Sub

 

[frekans]

Bir dosya açıldığında sanıyorum yeni açılan dosyadaki hücreden adresi almaya çalışıyor ve bu yüzden birden fazla dosya açılmıyor. Burada hücreyi sürekli [Kitap1.xls]Sheet1! 'den görmesini nasıl sağlayabiliriz? Ayrıca dosya isminde bazen hatalar olabiliyor hata olunca makronun durmadan sonraki dosyaları açmasını sağlayabilir miyiz..

 

[Orion1]

aşağıdaki kodu deneyiniz.

Sub ac()
Dim i As Byte
For i = 1 To 10
    Workbooks.Open (thisworkbook.sheets("Sayfa1").Cells(i, "A").Value)
Next
End Sub
Sub kapa()
Dim i As Byte, ds, dosya As String
For i = 1 To 10
ds = Split(thisworkbook.sheets("Sayfa1").Cells(i, "A").Value, "\")
dosya = ds(UBound(ds))
Workbooks(dosya).Close
End Sub

 

[frekans]

Evren Bey teşekkürler.. elinize sağlık

 

[Orion1]

Evren Bey teşekkürler.. elinize sağlık

Rica ederim.
İyi çalışmalar.