اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

 

حيث 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   يمكنك تغييره كما تحب

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information