استعاء استعلام وتحديد مساره بالاكسل

اخي الفاضل خالد

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

اذا رغبت في استخدام الماكرو لعملية تصدير استعلام الى ملف اكسيل فكل ما عليك هو القيام بالتالي اثناء تصميم الماكرو

استخدم الإجراء OutputTo

في وسائط الإجراء ضع التالي :

نوع الكائن : الإستعلام

اسم الكائن : اسم الإستعلام الخاص بك

تنسيق المخرجات : Microsoft Excel 97-2003

ملف المخرجات : هنا حدد المسار بالكامل للملف واين ستضعه سواء في مجلد او في المستندات ثم اكتب اسم ملف الإكسيل كمثل

C:\MyFolderName\MyFileName.xls

لاحظ اننا كتبنا اسم المجلد ثم وضعنا اسم الملف الذي سيتم الإخراج له

تشغيل تلقائي : نعم ( اذا رغبت ان يتم فتح ملف الإكسيل مباشرة بعد تصدير الإستعلام اليه

اما اذا رغبت في عمل نموذج وعليه زر أمر به كود التصدير مباشرة فضع هذا الكود في حدث عند النقر على زر الأمر بهذه الطريقة :

Private Sub CmdTransToExcel_Click()
Dim strPath As String
strPath = "C:\MyFolderName\" & "MyFileName.xls"
    DoCmd.OutputTo acQuery, "qryDATE", "MicrosoftExcelBiff8(*.xls)", strPath, True, "", 0
End Sub

حيث ان strPath هو اسم المسار كاملا لملف الإكسيل الذي تريد وضعه فيه ( قم بالتعديل عليه حسب رغبتك )

qryDATE هو اسم الإستعلام الخاص بك قم بتغييره بما لديك

وهذا مثال به الماكرو وكذلك نموذج جاهز به كود التصدير

za-ExportToExcel.rar

بالتوفيق

zahrah كتب:

اخي الفاضل خالد

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

اذا رغبت في استخدام الماكرو لعملية تصدير استعلام الى ملف اكسيل فكل ما عليك هو القيام بالتالي اثناء تصميم الماكرو

استخدم الإجراء OutputTo

في وسائط الإجراء ضع التالي :

نوع الكائن : الإستعلام

اسم الكائن : اسم الإستعلام الخاص بك

تنسيق المخرجات : Microsoft Excel 97-2003

ملف المخرجات : هنا حدد المسار بالكامل للملف واين ستضعه سواء في مجلد او في المستندات ثم اكتب اسم ملف الإكسيل كمثل

C:\MyFolderName\MyFileName.xls

لاحظ اننا كتبنا اسم المجلد ثم وضعنا اسم الملف الذي سيتم الإخراج له

تشغيل تلقائي : نعم ( اذا رغبت ان يتم فتح ملف الإكسيل مباشرة بعد تصدير الإستعلام اليه

اما اذا رغبت في عمل نموذج وعليه زر أمر به كود التصدير مباشرة فضع هذا الكود في حدث عند النقر على زر الأمر بهذه الطريقة :

Private Sub CmdTransToExcel_Click()
Dim strPath As String
strPath = "C:\MyFolderName\" & "MyFileName.xls"
    DoCmd.OutputTo acQuery, "qryDATE", "MicrosoftExcelBiff8(*.xls)", strPath, True, "", 0
End Sub

حيث ان strPath هو اسم المسار كاملا لملف الإكسيل الذي تريد وضعه فيه ( قم بالتعديل عليه حسب رغبتك )

qryDATE هو اسم الإستعلام الخاص بك قم بتغييره بما لديك

وهذا مثال به الماكرو وكذلك نموذج جاهز به كود التصدير

za-ExportToExcel.rar

بالتوفيق

الف شكر استاذتي العزيزة وربنا يوفقك لما فيه الخير ولدي سؤال ارجو المساعدة فيه مطروح في المنتدي

ما شاء الله لا قوة إلا بالله.

الأخت المبدعة الدكتورة زهرة.

شرح وافى ومفصل وشامل .. لقد استفدت منه كما استفاد أخى صاحب السؤال.

بارك الله لك وجعلك دائماً فى عون إخوانك.

تحياتى

محمد ندا