كود تصدير استعلام إلى اكسل

[عفرنس]

ما هو كود تصدير استعلام إلى اكسل مباشرة . دون ان أعمل تقرير للاستعلام ثم اصدره اكسل 

[ابو البشر]

في ٢٥‏/٧‏/٢٠٢٠ at 17:21, Barna said:

تفضل كود لتصدير الاسعلام

On Error Resume Next
DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\استعلام الموظفين.xlsx", True
Dim strSQL As String
Beep
MsgBox "تم تصدير بيانات الاستعلام بنجاح"

أما بخصوص استيراد الاستعلام فيتم استيراد الاستعلام داخل جدول وليس استعلام

 

اسف اخي محمد لم ارى اجابتك 

 

[ابوخليل]

DoCmd.OutputTo acOutputQuery, "Query", acFormatXLS, "exl.xls", True

 

[عفرنس]

شكر الله لكما @ابو البشر @ابوخليل

[عفرنس]

2 ساعات مضت, ابوخليل said:

DoCmd.OutputTo acOutputQuery, "Query", acFormatXLS, "exl.xls", True

 

أريد تحديد المجلد اللي يحفظ فيه الملف بعد التصدير @ابوخليل 

لأنه يحفظ لي في المستندات مباشرة .. وأنا أريد غير المستندات . 

[ابوخليل]

هذا مثال لاختيار مكان حفظ المصنف

لاحظ انه يحفظ تقرير .. انا متأكد انك تستطيع تعديله الى تصدير الاستعلام

انتظر منك اي ملاحظة ،،

تصدير التقرير الى اكسل وتحديد المكان.rar

[عفرنس]

55 دقائق مضت, ابوخليل said:

هذا مثال لاختيار مكان حفظ المصنف

لاحظ انه يحفظ تقرير .. انا متأكد انك تستطيع تعديله الى تصدير الاستعلام

انتظر منك اي ملاحظة ،،

تصدير التقرير الى اكسل وتحديد المكان.rar 39.95 kB · 1 تنزيلات

 أخي   @ابوخليل 

حاولت اخربش في الكود واعدل ما يلزم تعديله لكن اليد قصيرة والعين بصيرة .. 

ما ضبط معي . 

[ابوخليل]

هذا السطر يقوم بتصدير الاستعلام الى مجلد abc بجانب قاعدة البيانات

DoCmd.OutputTo acOutputQuery, "Query", acFormatXLS, CurrentProject.Path & "\abc\exl1.xls", True

وهنا قمت بالتعديل على المثال ا السابق بحيث يقوم بتصدير الاستعلام بدلا من التقرير

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

ملحوظة : الدالة  True التي في آخر السطر  يمكنك تغييرها بــــ   False  اذا لم ترغب بعرض ملف اكسل آليا

تصدير الاستعلام الى اكسل وتحديد المكان.mdb

[jjafferr]

السلام عليكم 🙂

 

تصدير التقرير الى اكسل به بعض المشاكل ، ولذا يُنصح بتصدير الاستعلام 🙂

 

جعفر

[عفرنس]

2 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

تصدير التقرير الى اكسل به بعض المشاكل ، ولذا يُنصح بتصدير الاستعلام 🙂

 

جعفر

@jjafferr 

وعليكم السلام 

وما هي هذه المشاكل ؟؟ 

تم تعديل يوليو 28, 2020 بواسطه فايز..

[jjafferr]

2 ساعات مضت, فايز.. said:

وما هي هذه المشاكل ؟؟ 

مو هذا السؤال اللي لازم يُطرح ، وإنما السؤال يجب ان يكون،

لماذا التصدير من التقرير ؟

لأنك تحصل على البيانات فقط بدون التنسيق ، وهذه البيانات تقدر تأخذها من الاستعلام 🙂

 

جعفر

[عفرنس]

منذ ساعه, jjafferr said:

مو هذا السؤال اللي لازم يُطرح ، وإنما السؤال يجب ان يكون،

لماذا التصدير من التقرير ؟

لأنك تحصل على البيانات فقط بدون التنسيق ، وهذه البيانات تقدر تأخذها من الاستعلام 🙂

 

جعفر

أما هذه فصحيح . 

زدنا يا مولانا . 

[عفرنس]

9 ساعات مضت, ابوخليل said:

هذا السطر يقوم بتصدير الاستعلام الى مجلد abc بجانب قاعدة البيانات

DoCmd.OutputTo acOutputQuery, "Query", acFormatXLS, CurrentProject.Path & "\abc\exl1.xls", True

وهنا قمت بالتعديل على المثال ا السابق بحيث يقوم بتصدير الاستعلام بدلا من التقرير

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

ملحوظة : الدالة  True التي في آخر السطر  يمكنك تغييرها بــــ   False  اذا لم ترغب بعرض ملف اكسل آليا

تصدير الاستعلام الى اكسل وتحديد المكان.mdb 364 kB · 1 تنزيلات

أخي @ابوخليل  أحسن الله إليك .. 

وإذا أردت يحفظه لي في التنزيلات ؟؟ 

لأن البرنامج على سطح المكتب .. ولا أريده في مجلد خاص به . 

[ابوخليل]

DoCmd.OutputTo acOutputQuery, "Query", acFormatXLS, "C:\Users\bbr\Downloads\exl1.xls", True

لاحظ ان bbr هو اسم المستخدم على ويندوز ، يجب تغييره بالاسم الذي عندك

[jjafferr]

 

وطريقة سهلة لمعرفة مسار سطح المكتب ، اكتب التالي في نافذة VBE ، واضغط على زر Enter على الكيبورد وسترى المسار:

.

?Environ("USERPROFILE") & "\Desktop"

رجاء الملاحظة عند كتابة علامة الاستفهام ، يجب ان يكون الكيبورد باللغة الانجليزية ، يعني اذا كتبت علامة الاستفهام هذه ؟ فلن يعمل الكود !!

 

جعفر

[عفرنس]

2 ساعات مضت, ابوخليل said:

لاحظ ان bbr هو اسم المستخدم على ويندوز ، يجب تغييره بالاسم الذي عندك

جزاكما الله خيرا @ابوخليل @jjafferr

والحمد لله تم المطلوب بنجاح ..