Sub Düğme1_Tıklat()
Sheets("GENEL").Range("A2:K65536").ClearContents
Dim con As Object, rs As Object
Dim col As Collection, evn As Object, K As Object
Set col = New Collection
Set evn = CreateObject("scripting.filesystemobject")
Set K = evn.getfolder(ThisWorkbook.Path & "\Panel_DATA")
For Each d In K.Files
col.Add d.Name
Next d
For t = 1 To col.Count
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.Path & "\Panel_DATA\" & col(t) & ";extended properties=""excel 12.0 Macro;hdr=yes"""
Set rs = con.Execute("select Inch,Şasi,Panel,Panel_Kod,WB_Süre,Std_Sapma,WB_MIN,WB_MAX,Adet,Güncelleme,AÇIKLAMA from [DB$]")
Range("A65536").End(3)(2, 1).CopyFromRecordset rs
Next t
Set con = Nothing: Set rs = Nothing
Set evn = Nothing: Set K = Nothing
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.