Worksheetleri toplu olarak PDF'ye aktarma sorunu

[genesis_vision]

Merhabalar. Ekteki dosyada yapmaya çalıştığım ve kısmen başarabildiğim şey her öğrenci için bir sonuç karnesi yapabilmek. Çalışma mantığı 3 aşamalı.
1 no'lu butona basınca 1. sayfadaki okul kodlarına göre alt klasörlerle birlikte klasörler oluşturuyor.
2 no'lu buton karnelerin nereye kaydedileceğini belirliyor.
3 no'lu buton ise her öğrenci için için sonuç karnesi üretiyor. (Ayrı sheetler halinde). Döngü devam ederken kurum kodu değişirse biriken sheet'leri komple seçip pdf olarak belirlediğimiz klasöre aktarıyor.

Ancak kod belli bir satırdan sonra memory hatası vermeye başlıyor. İlk 800-900 satır sorunsuz çalışıyor ama sonra sorun başlıyor. Sizce sebebi ne olabilir? Üstatların yardımlarını bekiyorum. Saygılar

Not: FileSystemObject metodu kullanıldığı için Tools>References>MicrosoftScriptingRuntime alanının işaretli olması gerekmektedir. Aksi takdirde kod çalışmayacaktır.

 

[Zeki Gürsoy]

64 bit Excel ile sorunsuz bir şekilde işi bitiriyor. Dosyanın problem çıkardığı makinada 32 bit Excel yüklü olabilir. Bu fark, uygulamanın bellek kullanımını etkiler.

Bu prosedurun çalıştığı dosyada çalışma zamanında çok fazla sayfa (örnekte >180) eklenmesi bellek hatalarına sebep olabiliyor. Workbooks.Addmetodu ile yeni bir Excel dosyasında, hatta New Excel.Application ile farklı bir process'te işlem yaptırmak sorunu çözebilir. Problem devam ederse, sayfaları iş bitiminde topluca silmek yerine pdf olarak çıkardıktan sonra sayfayı silerek işlemi tekrar ettirmek veya her sayfa için Workbook üretmek, o da olmazsa tek sayfa altında alt alta biriktirmek çözüm olabilir.

.

 

[genesis_vision]

64 bit Excel ile sorunsuz bir şekilde işi bitiriyor. Dosyanın problem çıkardığı makinada 32 bit Excel yüklü olabilir. Bu fark, uygulamanın bellek kullanımını etkiler.

Bu prosedurun çalıştığı dosyada çalışma zamanında çok fazla sayfa (örnekte >180) eklenmesi bellek hatalarına sebep olabiliyor. Workbooks.Addmetodu ile yeni bir Excel dosyasında, hatta New Excel.Application ile farklı bir process'te işlem yaptırmak sorunu çözebilir. Problem devam ederse, sayfaları iş bitiminde topluca silmek yerine pdf olarak çıkardıktan sonra sayfayı silerek işlemi tekrar ettirmek veya her sayfa için Workbook üretmek, o da olmazsa tek sayfa altında alt alta biriktirmek çözüm olabilir.

.

Çok teşekkürler. Deneyip sonucuna bakacağım.