كود تصدير من اكسس الى اكسل مع حفظ الملف على سطح المكتب

[الحلبي]

السلام عليكم 

بحث كثيرا ولم اجد طلبى

المطوب كود للتصدير جدول من اكسس الى اكسل وحفظ الملف على سطح المكتب وليس بجانب البرنامج

مع كتابة التاريخ ويجدد فى كل عملية تصدير

جزاكم الله خيرا

[Barna]

وعليكم السلام ورحمة الله

Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx"
    DoCmd.TransferSpreadsheet acExport, , "qry_Query", Output_Path

مع تعديل اسم الاستعلام باسم الجدول المطلوب لديك ...

[الحلبي]

استاذنا ومعملنا / @Barna

الله يفتح عليك ويصلح حالك ويجزاك كل خير           تمام التمام

هو المطلوب

ولكن استاذى الفاضل ........  لماذا تظهر اسم العمود ـ او عنوان العمود باللغة الانجليزية

هل يمكن ان تظهر باللغة العربية

جزاك الله كل خير ورزقك من غير حساب

[Barna]

تفضل ......

    Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx"
    DoCmd.OutputTo acOutputQuery, "qry_Query", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint

 

[الحلبي]

استاذى ومعلمى / @Barna

الله عليك الله عليك 

هو ده المطلوب

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

ربنا يبارك فيك ويعطيك العافية والصحة

جزاك الله خيرا 

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

معلش لو حبيت اخفى حقل  او حقلين من الجدول الذى يتحول الى اكسس ماذا افعل

ان لم يكن هناك اجابة ،،،  هذا ليس مهم ولكن للمعرفة العامة

تم تعديل سبتمبر 7, 2021 بواسطه الحلبي

[د.كاف يار]

1 ساعه مضت, Barna said:

تفضل ......

    Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx"
    DoCmd.OutputTo acOutputQuery, "qry_Query", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint

 

ماشاء الله لا قوة الا بالله فنااااان و مبدع

[Barna]

تلميذك ..... منك نتعلم

[Barna]

منذ ساعه, الحلبي said:

معلش لو حبيت اخفى حقل  او حقلين من الجدول الذى يتحول الى اكسس ماذا افعل

هل تريد ذلك عن طريق المبرمج أم المستخدم هو من يتحكم ؟؟؟؟

اذا كان كمبرمج ..... فيمكن ذلك عن طريق عمل استعلام للجدول المطلوب وتحديد الحقول المطلوبة للتصدير .... ثم تصدير الاستعلام بدل الجدول ...

وإذا كان كمستخدم ..... فيمكن ذلك عن طريق عمل فورم يجلب الجداول في كمبوبكس ... ثم اظهار الحقول الخاصة بالجدول بعد اختياره .... ثم تصدير الحقول المختارة فقط ...

ماذا تريد انت ؟؟؟؟؟؟؟؟؟

[طلب اكسس]

اتمنى تكرمنا بمثال

[الحلبي]

استاذي/ @Barna

لقد وضحت لى المطلوب

عندما اريد عن طريق مستخدم سوف اقوم بعمل استعلام (ليس به الحقل المراد اخفاءه) واصدر الاستعلام الى اكسيل

شكرا جزيلا لقد وضحت الامور امامى

جزاك الله خيرا

[Barna]

3 ساعات مضت, طلب اكسس said:

اتمنى تكرمنا بمثال

اظن الحالة الاولى .... معروفة وسهلة

هذا مثال للحالة الثانية ......

 

Bar_te.accdb

[abouelhassan]

السلام عليكم استاذ Barna

بارك الله فيك اخى الكريم

حاولت تطبيق الكود لتصدير تقرير الى اكسيل مع استخدام اسماء الاعمدة باللغة العربية وليس الانجليزية كما تفضلت حضرتك ووضعته

كنت استخدم هذا الكود وهو اما للاستاذ صالح حماد او محمد صالح على العموم لهما كل الشكر والتقدير المشكلة انه يصدر التقرير للاكسيل بالاسماء الانجليزية وانا اريده كما هو بالعربى

Private Sub ÃãÑ19_Click()
On Error Resume Next
DoCmd.SelectObject acReport, namerpts
DoCmd.OutputTo acOutputReport, namerpts, "MicrosoftExcelBiff8(*.xls)", "", True, ".xls", , acExportQualityPrint
End Sub

 

فاستخدمت الكود الذى قمت حضرتك بوضعه بالاعلى مع تغير اسم التقرير 

Private Sub ÃãÑ19_Click()
On Error Resume Next
Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx"
  DoCmd.TransferSpreadsheet acExport, , "rpt_Items_Dates_3", Output_Path

End Sub

فلم يعمل معى احتاج تعديله مع تغير المسار الى فتح نموذج تحديد مكان حفظ التقرير وليس على الديسك توب لو امكن اكون شاكر فضلك اخى

بارك الله فيك 

[Barna]

طيب اخي الكريم انت تقول غير اسم التقرير في الكود .....

وتريد ان معالج اختيار مكان الحفظ 

استخدم هذا الكود ......

DoCmd.OutputTo acOutputQuery, "rpt_Items_Dates_3", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint

 

[abouelhassan]

بارك الله فيك استاذ Barna اعزك الله

هذا هو المرفق الذى اعمل عليه

عند فتح الشاشة الرئيسية اختار التاريخ من والى ونوع العدد واختار طباعة التقرير

هذا هو التقرير المراد تصديره بنفس شكله يظهر هذا الشريط وهو للاستاذ صالح حمادى ربنا يبارك له

عند الضغط على علامة التصدير للاكسيل يتم التصدير بس اسماء الاعمدة بالانجليزية اريد التصدير يتم مثل التصدير للPDF

بنفس شكل التقرير جربت الكود الخاص بحضرتك بس فشلت ممكن المساعدة

اليوزر حسان والباس ورد 123 

بارك الله فيك استاذ Barna

طباعة التقرير.mdb

[Barna]

بارك الله فيك ابا الحسن .... تقريرك المصدر هو بالانجليزي ... كيف تبغاه بالعربي ؟؟؟؟؟؟؟

ثانيا :::: لا تتوقع عند تصدير التقرير الى الاكسل يكون بنفس التنسيق .... اذا تبقاة بنفس التنسيق صدرة PDF فقط ...

[abouelhassan]

بارك الله فيك استاذنا الفاضل

أريده بنفس التنسيق للتسهيل 

اشكرك من قلبى احترامى