excel 2007'de workbook.add 65bin satırlık kitap açması

[turan1971]

[Çözüldü] excel 2007'de workbook.add 65bin satırlık kitap açması

Merhaba Arkadaşlar,
Excel 2007 formatında makro içeren bir Çlaışma Kitabım var.
Makromda Workbooks.add ile yeni bir kitap açılıp, makro kitabında bulunan bir sayfa bu yeni açılan kitabın en başına kopyalanmaktadır.
Makromu 100 kişi kullanmaktadır. Kullanıcılarım arasında bir arkadaşın excelinde bir sorun var. Excel 2007 olmasına karşın o arkadaşın bilgisayarında Workbook.add komutu ile eklenen yeni kitapta sadece 65bin küsür satırlı kitap açılıyor. Dolayısı ile kopyalanacak sayfa 1 milyon satırdan oluştuğu için hata veriyor.

Arkadaşın bilgisayarında manuel yeni kitap dediğimde oluşan yeni kitapta satır sayısı 1 milyon küsür. Fakat komutla yapıldığında 65bin kusur.
Makromu
ActiveWorkbook.SaveAs Filename:= _
"C:\Root\Temp.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
olarak değiştirsemde olmadı...
Sayfa taşınma sırasında hata verdi. Bu arada görev çubuğunda dosya adının Temp.xlsx (Uyumluluk Modu) yazdığı dkkatimi çekti.
Workbook.Add yerine yada ekinde 1 milyon satırlık kitap açacak farklı bir kod varmıdır? yada bu hatayı nasıl aşarım...

 

[mancubus]

şuraya bir bakar mısınız?

http://fox.wikis.com/wc.dll?Wiki~ExcelAutomation

 

[turan1971]

evet çok güzel bilgiler var bu sayfada ama, sorunumu hangisi nasıl çözecek bulamadım

Bu aşağıdaki başlık belki ama, bu kod 2003 formatında kaydetmek için sanırım. Bana 2003 formatında yaratılan bir kitabı 2007 formatında kaydetme kodu lazım. Kaldıki konuda anlattığım gibi kaydetmiş olsamda yani dosya Temp.xlsx olsada hala 65bin satır var dosyada.

Saving a workbook as an Excel 97/2003 spreadsheet from Excel 2007

 

[turan1971]

Yabancı forumlarda buldum çözümünü.
Arkadaş Excel ayarlarıyla oynamış galiba...
Excel Seçenekleri >> Kaydet bölümünde
Dosyaları bu biçimde Kaydet alanında "Excel 97-2003 Çalışma Kitabı (*.xls) seçili imiş."
O ayarı "Excel Çalışma Kitabı (*.xlsx) " olarak değiştirdiğimde sorun haloldu.

 

[mancubus]

şuraya da bir bakın.

http://www.rondebruin.nl/saveas.htm

buradaki kodlardan hareketle sizin örnek:

ActiveWorkbook.SaveAs Filename:="C:\Root\Temp.xlsx", _
FileFormat:=xlOpenXMLWorkbook

yerine

ActiveWorkbook.SaveAs "C:\Root\Temp.xlsx", fileformat:=51

veya

ActiveWorkbook.SaveAs "C:\Root\Temp.xlsm", fileformat:=52

daha uygun olabilir.

 

[mancubus]

Yabancı forumlarda buldum çözümünü.
Arkadaş Excel ayarlarıyla oynamış galiba...
Excel Seçenekleri >> Kaydet bölümünde
Dosyaları bu biçimde Kaydet alanında "Excel 97-2003 Çalışma Kitabı (*.xls) seçili imiş."
O ayarı "Excel Çalışma Kitabı (*.xlsx) " olarak değiştirdiğimde sorun haloldu.

yine de verdiğim link çok kullanılan bir sitenin linki.
arada bir göz atmakta fayda var. zaten bildiğiniiz bir sitedir belki....

 

[turan1971]

yine de verdiğim link çok kullanılan bir sitenin linki.
arada bir göz atmakta fayda var. zaten bildiğiniiz bir sitedir belki....

evet çok teşekkürler... o linki sık kullanılanlara kaydettim...