ADO ile Klasördeki Dosyalardan Sonuç Listeleme

Kodlarınızdaki On Error Resume Next satırının önüne bir ' işareti koyup, hangi dosyada hataya düştüğünü bir bakın.
Sanırım bu satırdan dolayı kod sonsuz döngü içine giriyor.

Üstat iyi geceler,
Dediğiniz işlemi yaptığımda Set rs = cnn.Execute(sqlSorgu) hata veriyor

Sorgu demek sonuç bulmuyor.

• VBA penceresi açıkken, Ctrl + G kısayolu ile Immediate Window penceresini açın.
• sqlSorgu değişkeni olarak set edilen satırın altına aşağıdaki kodu yazın
  
  Kod:

  İndirmek için giriş yapmanız gerekmektedir.
  (1 satır)

• Kodlarınızı F8 ile adım adım bu kısma kadar manuel çalıştırın.

Immediate Window alanına çalışmaya en son gelen sorgudaki kısımlarda veri yok/ulaşılamıyor vs demektir.
Bu şekilde hatanın nedenini çözmüş olacaksınız.
Yani ilk yazdığım gibi, durduk yere çalışan bir kod hataya düşmez.

Hocam Merhaba,
Sanırım sorunu buldum test edince yazayım. Makroyu hazırlayan değerli üstat ile yazışırken ay bazında çeksin demiştin sanırım ay sorgusunda sıkıntı yaşadığı için makro sonsuz döngüde kalıyor

Bu şekilde afaki cümleler ne yazık ki benim tarafımdam bir anlam ifade etmiyor.
Verdiğiniz tek cümleden çıkarımım ancak bir önceki mesajımdaki kadar olacaktır.