nacer_alger قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 كيف اصدر جدولين من اكسس الى اكسل اي اجمعهم في ورقة واحدة تحتوي على table1 فيFeuille1 و table2 في feuille2 و شكرا رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 استخدم الكود التالي DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", _ "", True, "", , acExportQualityPrint DoCmd.OutputTo acOutputTable, "Table2", "ExcelWorkbook(*.xlsx)", _ "", True, "", , acExportQualityPrint استبدل Table1 و Table2 باسمي الجدولين لديك رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 إذا اردت ان تجمعهم في ورقة واحدة ما عليك إلى ضم الجدولين عن طريق عمل استعلام معتمد على الجدولين ثم قم بتصدير الاستعلام كالتالي DoCmd.OutputTo acOutputQuery, "QueryName", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint رابط هذا التعليق شارك More sharing options...
nacer_alger قام بنشر يناير 2, 2015 الكاتب مشاركة قام بنشر يناير 2, 2015 اريد تصديرهم في مجلد واحد لكن كل واحد في صفحة داخل المجلد كما في الصورة تصدير في مجلد واحد.rar رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 2, 2015 مشاركة قام بنشر يناير 2, 2015 تفضل استاذنا الفاضل جرب ما يلي حيث 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.SetWarnings False DoCmd.TransferSpreadsheet acExport, , "Table1", Filepath, True, sheet1 DoCmd.TransferSpreadsheet acExport, , "Table2, Filepath, True, sheet2 حيث أنه سوف يتم الحفظ في نفس مسار قاعدة البيانات باسم studentsData يمكنك تغييره كما تحب رابط هذا التعليق شارك More sharing options...
nacer_alger قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 (معدل) شكر اخي علي هدا هوطلبي لكن ان اعمل بهدا الكود للأنه يعطيك امكانية اخيار المسار لكنمشكلة هي عند تغيير اسم عند الحفظ يظهر جدول واحد فقط وعندما اريد انا اضيف جدول ثالث في الكود ليصدر لي 3 جداول (table1 table2 table3 )يظهر خطئ في الكود DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrintDoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2 تم تعديل يناير 3, 2015 بواسطه nacer_alger رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 استخدم الكود كما يلي On Error Resume Next DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table3", "Table1.xlsx", True, sheet3 يمكنك اضفة سطر رابع مع الجدول رقم 3 وسطر خامس مع الجدول التالي وهكذا مع تغيير table3 ب table4 وهكذا وتغيير رقم الشيت sheet3 إلى sheet4 وهكذا ولا تغير اسم الملف Table1.xlsx تلاحظ انه نفس الاسم في السطور الثلاث وهذا يعني اننا نقول لكود قم بتصدير الجداول الثلاثة إلى نفس الملف واذا ار\ت تغييرة باسم آخر فقط غير كلمة Table1 بالاسم الذي تريده مثلا AliElmasry.xlsx 1 رابط هذا التعليق شارك More sharing options...
nacer_alger قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 شكر اخي على هدا الحل الجميل لكن عند نقر على زر امر ويطلب مني حفظ في مسار معين قاقوم بتغيير اسم افتراضي الدي يولده وهو table1 فلا يجلب لي كل من table2 table 3 بل يجلب لي table1 فقط رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 اذا اردت تغيير الاسم الافتراضي عيره داخل الكود وليس عند الحفظ رابط هذا التعليق شارك More sharing options...
nacer_alger قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 شكرا لك استاد على لمساعدتك لى جزاك الله خبرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان