جرب التالي وهي محاولة سريعة
ثم ظلل ملف الاكسل كامل واعمل دبل كليك على عرض الاعمدة والصفوف لظهور البيانات
Private Sub Command0_Click()
a = "Excel Report"
DoCmd.OutputTo acOutputReport, "Report", acFormatTXT, CurrentProject.path & "\" & a & ".csv", False
End Sub
بالتوفيق