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")