السلام عليكم ورحمة الله وبركاته
بعد التجربة توصلت إلى الآتي :
الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي :
Private Sub ToExcel_Click()
DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False
Beep
MsgBox "xls has been created", vbInformation, "Export xls"
End Sub
الكود يعمل على اوفيس 2010 كالتالي
'Function getFilName() As String
Private Sub ToExcel_Click()
DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint
'xlxs تنسيق ملف اكسيل 2010
Beep
MsgBox "xlsx has been created", vbInformation, "Export xlsx"
End Sub
حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله )