nacer_alger قام بنشر يناير 2, 2015 قام بنشر يناير 2, 2015 كيف اصدر جدولين من اكسس الى اكسل اي اجمعهم في ورقة واحدة تحتوي على table1 فيFeuille1 و table2 في feuille2 و شكرا
علي المصري قام بنشر يناير 2, 2015 قام بنشر يناير 2, 2015 استخدم الكود التالي DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", _ "", True, "", , acExportQualityPrint DoCmd.OutputTo acOutputTable, "Table2", "ExcelWorkbook(*.xlsx)", _ "", True, "", , acExportQualityPrint استبدل Table1 و Table2 باسمي الجدولين لديك
علي المصري قام بنشر يناير 2, 2015 قام بنشر يناير 2, 2015 إذا اردت ان تجمعهم في ورقة واحدة ما عليك إلى ضم الجدولين عن طريق عمل استعلام معتمد على الجدولين ثم قم بتصدير الاستعلام كالتالي DoCmd.OutputTo acOutputQuery, "QueryName", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint
nacer_alger قام بنشر يناير 2, 2015 الكاتب قام بنشر يناير 2, 2015 اريد تصديرهم في مجلد واحد لكن كل واحد في صفحة داخل المجلد كما في الصورة تصدير في مجلد واحد.rar
علي المصري قام بنشر يناير 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 يمكنك تغييره كما تحب
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
علي المصري قام بنشر يناير 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
nacer_alger قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 شكر اخي على هدا الحل الجميل لكن عند نقر على زر امر ويطلب مني حفظ في مسار معين قاقوم بتغيير اسم افتراضي الدي يولده وهو table1 فلا يجلب لي كل من table2 table 3 بل يجلب لي table1 فقط
علي المصري قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 اذا اردت تغيير الاسم الافتراضي عيره داخل الكود وليس عند الحفظ
nacer_alger قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 شكرا لك استاد على لمساعدتك لى جزاك الله خبرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.