مطلوب كود حفظ ملف أكسل بتنسيق 2003

[أحمد العيسى]

السلام عليكم

للعلم فقط ، ليس إلا

عند استخدام الكود التالى لتصدير جدول  إلى صيغة ملف أكسل يعطى تنسيق أكسل 5  ، أكسل 95

stDocName = "tbl_student"
DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS, "C:\" & "Student" & ".xls", False

وبالبحث بالمنتدى وجدت كود آخر ، المفترض أنه يقوم بالتصدير إلى صيغة أكسل2003  مباشرة

stDocName = "tbl_student"
DoCmd.OutputTo acOutputTable, stDocName, "MicrosoftExcelBiff8(*.xls)", "C:\" & "Student" & ".xls", False

لكنه يعطى نفس الصيغة السابقة أكسل 5 ، أكسل 95

أين الخطأ

[ابوخليل]

استخدم هذا الاسلوب  فهو يشتمل على معايير اكثر :

DoCmd.TransferSpreadsheet acExport, 8, "Tbl1", strPath & "\Tbl1.xls", True, ""

رقم 8  تعني نوع التنسيق

جرب اعد كتابة  acExport    ثم الفاصلة  ستظهر لك قائمة بالمتاح من التنسيقات

[أحمد العيسى]

أشكرك أخى أبو خليل

التنسيق الأخير فعلاً كما طلبت ، لكنه أخرج ورقة أكسل من اليسار لليمين عكس السابق

كما أن رؤوس الورقة أخذت أسماء الحقول وليست التسمية التوضيحية

 

تم تعديل مارس 8, 2018 بواسطه أحمد العيسى

[أحمد العيسى]

ربما ما كتبته أعلاه غير واضح .. إذن نلجأ للصور

الأمر التالى يعمل على إنتاج ملف أكسل يتم فتحه على جميع إصدارات برامج أكسل ولكنه بتنسيق 5 ، 95

DoCmd.OutputTo acOutputTable, "tbl_student", acFormatXLS, "C:\" & "Student" & ".xls", False

والميزة الرائعة أنه يأخذ الإتجاه العربى والرؤوس العربية للحقول ( التسمية التوضيحية )

 

بينما الأمر الذى أضافه أخى أبوخليل يعمل على انتاج ملف تنسيقه فعلاً 2003  وهذا أمر رائع

DoCmd.TransferSpreadsheet acExport, 8, "tbl_student", strPath & "\Student.xls", True, ""

لكنه يأخذ الإتجاه اللاتينى ومسميات الحقول الأصلية كرؤوس للورقه وليست التسمية العربية التوضيحية للحقل

مطلوب تكرماً المزج بين الأمرين ليأخذ ميزة الأمر الأول ، وتنسيق الأمر الثانى

[ابوخليل]

جرب هذا اعتقد هو مطلوبك

DoCmd.OutputTo acOutputTable, "tbl_student", 8, "C:\" & "Student" & ".xls", False, "", 0

ولو حذفت رقم 8 الظاهر وابقيت على الفاصلة  سوف يظهر لك مربع حوار لاختيار الصيغة والتنسيق ,, واعتقد هذا خاص لمن يعمل على 2003

[أحمد العيسى]

تمام

أفادكم الله

تحياتى وتقديرى لك

[ahmed___zein]

جزاك الله خيرا... وجعله في ميزان حسناتك... اخي الفاضل