Haluk Hocam çok güzel bilgi ve emeğinize sağlık,
yalnız bir problem var, bu TXT dosyasının devamına yazmıyor, önceki yazılanları silip tekrar üzerine yazıyor,
Benim istediğim önceki yazılı olanlar kalıp, yenilerini devamına yazıp gitmesi
Aşağıda For ... Next döngüsü ile oluşturdğum yapı mevcut...
...con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=No;IMEX=1'"
s = "select format(f8,'dd.mm.yyyy'), format(f11,'dd.mm.yyyy'), format(f12,'dd.mm.yyyy') from [Giris$A5:DZ65000] where f1 is not null "...
Üstadlar Evren bey in emeğine sağlık böyle bir çalışma hazırlamış. bu çalışmayı aynı klasör içinde bulunan aynı formattaki bir kaç çalışma kitabını birleştirmek için uyarlamak mümkün mü?Bu çalışma kitaplarının da her sayfası ayrı ayrı birleştirilebilir mi? 1. kitapta 3 sayfa 2. kitapta 3 sayfa...
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _
"';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";"
Set rs = CreateObject("Adodb.RecordSet")
strSql = " SELECT * FROM [Sheet1$A:F] WHERE [Sütun1] IS NOT NULL ORDER BY...
Sayın hocam şuan dışarıdayim.eve geçince deneyeceğim, şimdiden elinize sağlık Allah razı olsun.
Binlerce satırlık veriyi bir kaç saniye içinde istediğim şekilde yapıyor. Tekrardan çok teşekkür ederim. Hayırlı kandiliniz olsun, bu mubarek günde dualarınız kabul olsun inşallah
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.