شكر اخي علي هدا هوطلبي لكن
ان اعمل بهدا الكود للأنه يعطيك امكانية اخيار المسار لكنمشكلة هي عند تغيير اسم عند الحفظ يظهر جدول واحد فقط
وعندما اريد انا اضيف جدول ثالث في الكود ليصدر لي 3 جداول (table1 table2 table3 )يظهر خطئ في الكود
DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2