تصدير اكثر من جدول إلى ملف اكسيل واحد

[علي المصري]

باستخدام احد الأكواد التالية يمكنك تصدير جدولين  إلى ملف اكسيل واحد كل جدول في ورقة

 

حيث Table1   و   Table2  هي اسماء الجداول

DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2

 

أو استخدم الكود التالي

Dim Filepath As String
Filepath = CurrentProject.Path & "\StudentData.xlsx"
DoCmd.TransferSpreadsheet acExport, , "Table1", Filepath, True, sheet1
DoCmd.TransferSpreadsheet acExport, , "Table2, Filepath, True, sheet2

حيث أنه سوف يتم الحفظ في نفس مسار قاعدة البيانات باسم    studentsData   يمكنك تغييره كما تحب

[ابو الآء]

بارك الله فيك استاذى الفاضل

لو تكرمت علينا بمثال لاضافته للمكتبه

[علي المصري]

نموذج تطبيقي

ExportToExcel&Pdf.rar