klasordeki excel dosyalarından veri almak

[chef01]

selam arkadaslar

forumda cok aramama ragmen isdediğim gibi bir kod bulamadım yada bulduklarımı anlayamadım
benim sorunum şu

bi klasorun icinde cok sayıda excel dosyası var ve ben bu excel dosyalarından
bilgi almak istiyorum ve veri dosyama listelemek istiyorum

listelenecek işlem dosya adı E35 F35 G35 hucrelerindeki bilgileri

listelemek istiyorum inşallah anlatabilmişimdir
ekte az cok yapmak istediğimle ilgili deneme dosyalarını ekledim

şimdiden yardımlarınız icin teşekkurler

 

[chef01]

hic bu konuda bi bilgisi veya bi dusuncesi olan yokmu

 

[Mahmut Bayram]

http://excel.web.tr/forumdisplay.php?f=117
ADO uygulamalarını dikkatli inceleyiniz.

 

[chef01]

mahmut bey dediğiniz gibi inceledim ben demek istediğim dosya isimleri ve o dosyadaki 3 hucredeki bilgileri almak mesele tek bir calısma sayfası icinde arama yapmak icin kullandıgım kodu klasordeki dosyalar ıcın kullanmak isdiyorum ama bunda arama olmayacak makroyu calısdırdığımda klasordeki tum dosya isimleri ve dosyaların icindeki 3 hucredeki bilgileri karsılıklı olarak excel sayfasına almak isdiyorum

excel sayfalarında arama yapmak icin kullandıgım kod

Sub sayfa_sırala()
For i = 1 To Worksheets.Count - 6 'Son 6 sayfayı gizler
Sheets("toplam").Range("A" & i).Select
Sheets("toplam").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sheets("toplam").Range("A" & i).Value & "!A1"
Sheets("toplam").Range("D" & i).Value = Worksheets(Sheets("toplam").Range("A" & i).Value).Range("O33").Value
Sheets("toplam").Range("B" & i).Value = Worksheets(Sheets("toplam").Range("A" & i).Value).Range("O9").Value
Sheets("toplam").Range("e" & i).Value = Worksheets(Sheets("toplam").Range("A" & i).Value).Range("m31").Value
Next i
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Dosyalarınızın yolu kod içinde E:\deneme olarak tanımlanmıştır. Bunu kendinize göre değiştirin.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("E:\deneme").Files
c = c + 1
Cells(c + 4, "e") = dosya.Name
Cells(c + 4, "f") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C5")
Cells(c + 4, "g") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C6")
Cells(c + 4, "h") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C7")
Next
End Sub

 

[chef01]

Levent bey cevap icin teşekkurler

bu kodu buraya kadar anladım dosya isimlerini alıyoruz

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("c:\deneme").Files
c = c + 1
Cells(c + 4, "e") = dosya.Name
Next
End Sub

birde bu dosyaların her birinden bilgi almam lazım
her dosyanın e35 f35 g35 hucrelerindeki sayıları almam lazım
nasıl bir ilave yapabiliriz

 

[Levent Menteşoğlu]

........birde bu dosyaların her birinden bilgi almam lazım
her dosyanın e35 f35 g35 hucrelerindeki sayıları almam lazım
nasıl bir ilave yapabiliriz

Verdiğim kod zaten bunu yapıyor. Yapmanız gereken veri isimli dosyanızda yukarıda verdiğim kodu çalıştırmaktır.

 

[chef01]

cok teşekkurler usta super oldu benden kaynaklanan hataymış