Excel 2013'te Makro çalıştırma sorunu

[bayteksan]

Ekteki excel dosyasında VERİ AL makrosunu OFİS 2003'te sorunsuz olarak çalıştırıyorum.OFİS 2013 ,OFİS 2010'da ise işlem bir türlü sonuçlanmıyor.
Yardımcı olacak arkadaşlara şimdiden teşekür ediyorum.

 

[Levent Menteşoğlu]

Bunun tam nedenini bilmiyorum ancak gördüğüm kadarıyla 2010 versiyonunda ExecuteExcel4Macro yönteminde COUNTA işlevi doğru çalışmıyor. Örneğin, dosyanızda sat değişkenine satır sayısı olarak 983625 sayısını getiriyor. Dolayısıyla da döngünüzün tamamlanması çok uzun sürüyor. Size iki önerim olacak:

1- Verilerinizi ADO ile alabilirsiniz.
2- Aynı yöntemi kullanmakta ısrar ederseniz bu durumda sayfa1.xls dosyanızın örneğin B2 hücresine verilerin sayısını veren aşağıdaki formülü yazın.

=BAĞ_DEĞ_DOLU_SAY(D)

Makronuzun içindeki sat değişkeni içinde aşağıdaki kodu kullanın.

sat = ExecuteExcel4Macro(deg & "1c2")