Kapalı dosyadan veri alma

[fy2005]

Merhaba arkadaşlar,

Elimde yaklaşık 600 tane excel dosyası var. Bunların hepsi aynı klasörde. Benim istediğim bu dosyaları açmadan otomatik olarak her bir dosyanın adını yeni bir excel dosyasında alt alta yazdırmak. Bu isimleri yazdırdıktan sonra her bir dosyadan belirlediğim atıyorum c3 d4 h9 hücrelerini o isimlerin karşısına eklemek. Yalnız mesela h9 hücresi formülden oluşuyor olabilir. O yüzden ordaki formülü değil değeri çekmem lazım.

Böyle birşey mümkün müdür? Veya ne kadarı mümkündür? Bu konuda bana yardımcı olabilir misiniz? ilgilenen arkadaşlara şimdiden teşekkür ederim..

 

[Orion1]

Merhaba arkadaşlar,

Elimde yaklaşık 600 tane excel dosyası var. Bunların hepsi aynı klasörde. Benim istediğim bu dosyaları açmadan otomatik olarak her bir dosyanın adını yeni bir excel dosyasında alt alta yazdırmak. Bu isimleri yazdırdıktan sonra her bir dosyadan belirlediğim atıyorum c3 d4 h9 hücrelerini o isimlerin karşısına eklemek. Yalnız mesela h9 hücresi formülden oluşuyor olabilir. O yüzden ordaki formülü değil değeri çekmem lazım.

Böyle birşey mümkün müdür? Veya ne kadarı mümkündür? Bu konuda bana yardımcı olabilir misiniz? ilgilenen arkadaşlara şimdiden teşekkür ederim..

Mümkündür.
Kaynak dosyalarınızın bir kısmını ve hedef dosyanızı buradan link veriniz.

 

[fy2005]

Mümkündür.
Kaynak dosyalarınızın bir kısmını ve hedef dosyanızı buradan link veriniz.

Aslında beklerken birşeyler yaptım. Ama bir yerde takıldım.

VB ile klasördeki bütün dosyaları A sütununa yukardan aşağıya listeledim.

='C:\Dosyalar\[fy2005.xlsx]Sayfa1'!$H$9

şöyle bir kod yardımıyla da kapalı dosyadan istediğim hücredeki değeri alıyorum. Ama bu formülde adres kısmında dosya ismini direk yazmak yerine formül yardımıyla o hazırladığım listeden çekmem lazım. Bunu beceremedim.

Yani kısacası şu formülde

='C:\Dosyalar\[fy2005.xlsx]Sayfa1'!$H$9

fy2005.xlsx yazan yere A1 hücresinin değerini yazdırmam gerekiyor.

 

[PLİNT]

Merhaba
Ek dosyadaki gibi "Macro4" ile verileri alabilirsiniz.
http://s3.dosya.tc/server9/p6xn18/Desktop.zip.html

Private Sub CommandButton1_Click()
[A:C] = Empty
Dim ds, f, dc, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(ThisWorkbook.Path & "\Dosyalar\")
Set dc = f.Files
For Each dosya In dc
c = c + 1
Cells(c, 1) = dosya.Name
Cells(c, 2) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R3C3")
Cells(c, 3) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R4C4")
Cells(c, 4) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R9C8")
Cells(c, 1).Select
Next
End Sub

 

[fy2005]

Merhaba
Ek dosyadaki gibi "Macro4" ile verileri alabilirsiniz.
http://s3.dosya.tc/server9/p6xn18/Desktop.zip.html

Private Sub CommandButton1_Click()
[A:C] = Empty
Dim ds, f, dc, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(ThisWorkbook.Path & "\Dosyalar\")
Set dc = f.Files
For Each dosya In dc
c = c + 1
Cells(c, 1) = dosya.Name
Cells(c, 2) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R3C3")
Cells(c, 3) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R4C4")
Cells(c, 4) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R9C8")
Cells(c, 1).Select
Next
End Sub

Çok teşekkür ederim. İstediğim tam olarak buydu