+ reportname satırında + yerine & kullanarak dener misiniz?
Banka Hesap Ve Kredi Kart Hareketleri Örnek Program (nasıl Olmuş?)
(01/07/2022, 23:12)muzaffer.sm yazdı: Şöyle bir hata çıkıyor.Excele kaydetme esnasında.
https://www.resimupload.org/r/bLVmp
Merhaba, bende de aynı hatayı verdi, büyük ihtimalle referanslar bölümünden Excel ile ilgili olan seçili olmadığından. Bende de seçi gitmişi geri getirdim şimdi hata vermiyor.
İyi günler.
Aynı hata devam ediyor.
Office 16 sürüm.Referans ekli olduğu halde
https://www.resimupload.org/r/mNLv3
Office 16 sürüm.Referans ekli olduğu halde
https://www.resimupload.org/r/mNLv3
(15/07/2022, 22:36)muzaffer.sm yazdı: Aynı hata devam ediyor.
Office 16 sürüm.Referans ekli olduğu halde
https://www.resimupload.org/r/mNLv3
Merhaba,
vba kısmında hata aldığınız bölümde "HorizontalAlignment" yazan satırların başına "'" koyun yada satırları silin.
Daha önce bu satırlar nedeni ile hata almıştım, referanslardan Excel seçili olmadığında.
İyi günler.
hata bu kod bloğunda çıkıyor.
DoCmd.OutputTo acOutputReport, "rpr_hesap_hareketleri", acFormatXLS, fileName + reportName, False, , , acExportQualityPrint
'DoCmd.OutputTo acOutputQuery, "", acFormatXLSX, fileName + reportName, False, "Pim Stok" ', , , acExportQualityPrint
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "srg_pim_uretilen_pimler_stok_xls", fileName + reportName, True, "Pim Stok"
'DoCmd.Close acQuery, "srg_pim_uretilen_pimler_stok_xls", acSaveNo
'DoCmd.Close acReport, "rpr_celik_stok", acSaveNo
Set xlApp = CreateObject("Excel.Application")
DoCmd.OutputTo acOutputReport, "rpr_hesap_hareketleri", acFormatXLS, fileName + reportName, False, , , acExportQualityPrint
'DoCmd.OutputTo acOutputQuery, "", acFormatXLSX, fileName + reportName, False, "Pim Stok" ', , , acExportQualityPrint
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "srg_pim_uretilen_pimler_stok_xls", fileName + reportName, True, "Pim Stok"
'DoCmd.Close acQuery, "srg_pim_uretilen_pimler_stok_xls", acSaveNo
'DoCmd.Close acReport, "rpr_celik_stok", acSaveNo
Set xlApp = CreateObject("Excel.Application")
(17/07/2022, 15:30)muzaffer.sm yazdı: hata bu kod bloğunda çıkıyor.
DoCmd.OutputTo acOutputReport, "rpr_hesap_hareketleri", acFormatXLS, fileName + reportName, False, , , acExportQualityPrint
'DoCmd.OutputTo acOutputQuery, "", acFormatXLSX, fileName + reportName, False, "Pim Stok" ', , , acExportQualityPrint
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "srg_pim_uretilen_pimler_stok_xls", fileName + reportName, True, "Pim Stok"
'DoCmd.Close acQuery, "srg_pim_uretilen_pimler_stok_xls", acSaveNo
'DoCmd.Close acReport, "rpr_celik_stok", acSaveNo
Set xlApp = CreateObject("Excel.Application")
Ekteki dosyayı dener misiniz.
Bende sorunsuz çalışmakta.
Konuyu Okuyanlar: 1 Ziyaretçi