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

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

قام بنشر

السلام عليكم

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

عند استخدام الكود التالى لتصدير جدول  إلى صيغة ملف أكسل يعطى تنسيق أكسل 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    ثم الفاصلة  ستظهر لك قائمة بالمتاح من التنسيقات

  • Like 1
قام بنشر (معدل)

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

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

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

 

تم تعديل بواسطه أحمد العيسى
قام بنشر

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

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

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

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

m5zn_a33b7b655c88011.png

 

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

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

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

m5zn_4056d0bbd2d8490.png

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

قام بنشر

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

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information