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

[Radwan0]

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

عندي الاستعلام qyrcustomer وبه الاعمدة name,date,id,age,phone 

اريد عند الضغط على زر ارسالA يقوم بتصدير الى ملف اكسل وبه الاعمده name,date,phone 

وعند الضغط على زر ارسالB يقوم بالتصدير الى ملف اكسل وبه الاعمده name,id,age

[kkhalifa1960]

تفضل أخي بتحصل ما تريده هنا.

 

تم تعديل مارس 5, 2023 بواسطه kkhalifa1960

[Radwan0]

للاسف لم افلح في فهم الامثلة اخي الكريم

هل بالاامكان تطبيقه على المثال الذي اوضحته

[محمد احمد لطفى]

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

  اقتباس

 

Expand  

 

 

[abouelhassan]

  في 5‏/3‏/2023 at 18:02, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

Expand  

اخى فى الله  بارك الله فيك مشكور هل بالامكان ضبط الكود لكى يعمل على جملة الاستعلام

SELECT qry_Items_Pages_1.iPage, qry_Items_Pages_1.iDate, qry_Items_Pages_1.iName, qry_Items_Pages_1.iBill_Number, qry_Items_Pages_1.[1] AS Store_1, qry_Items_Pages_1.[2] AS Store_2, qry_Items_Pages_1.[3] AS Store_3, qry_Items_Pages_1.[4] AS Store_4, qry_Items_Pages_1.[5] AS Store_5, qry_Items_Pages_1.[6] AS Store_6, qry_Items_Pages_1.[7] AS Store_7
FROM qry_Items_Pages_1
WHERE (((qry_Items_Pages_1.iPage) Between Nz([Forms]![frm_Main]![srch_Page_From_3],0) And Nz([Forms]![frm_Main]![srch_Page_To_3],99999)) AND ((qry_Items_Pages_1.iDate) Between Nz([Forms]![frm_Main]![srch_Date_From_3],#1/1/1900#) And Nz([Forms]![frm_Main]![srch_Date_To_3],#12/30/2100#)));

حيث اننى حاولت الاستفادة من الكود لتصدير ناتج الاستعلام للاكسيل ولم افلح

مشكور اخى فى الله

[Radwan0]

  في 5‏/3‏/2023 at 18:02, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

Expand  

هو المطلوب اخي الكريم

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

فضلا وليس امرا .. كيف بالامكان التصدير الى ملف Xlsx وليس xls

سؤال ثاني كيف اجعل الملف ياخذ الاتجاه من اليمين الى اليسار وليس العكس وكيف بالامكان اختيار نوع الخط

[kkhalifa1960]

تفضل أخي مثال للاستاذ رمهان شغال تمام . 

BabaTest.accdbFetching info...

[Radwan0]

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

فقط بقي استفسارين هو كيفية تصدير الملف الى اكسل وان يبدا من اليمين الى اليسار مع ضبط عرض العمود

[Radwan0]

للرفع

[Radwan0]

  في 5‏/3‏/2023 at 20:06, Radwan0 said:

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

فقط بقي استفسارين هو كيفية تصدير الملف الى اكسل وان يبدا من اليمين الى اليسار مع ضبط عرض العمود

Expand  

للرفع 

[kanory]

  في 10‏/3‏/2023 at 04:25, Radwan0 said:

للرفع 

Expand  

كثرة الامثلة في الردود ...

اين مثالك اخي رضوان الذي اعتمدته انت

كي ننظر في سؤالك الثاني

[Radwan0]

  في 5‏/3‏/2023 at 18:02, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

Expand  

هذا اخي

[kanory]

  في 10‏/3‏/2023 at 11:00, kanory said:

كثرة الامثلة في الردود ...

اين مثالك اخي رضوان الذي اعتمدته انت

كي ننظر في سؤالك الثاني

Expand  

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

Sub FormatExcelOut(FileName As String)
Dim i As Integer
    Set objapp = CreateObject("Excel.Application")
    objapp.Visible = False
    Set wb = objapp.Workbooks.Open(FileName, True, False)
    
    
    For Each ws In wb.Worksheets
         
         With ws
         .DisplayRightToLeft = True
         .Application.DisplayAlerts = False

            .usedRange.Borders.LineStyle = 1
            .Columns.Font.Name = "Arial"
            .Columns.Font.Size = 12
            .Columns.Font.Bold = True
            .Range("A1:E1").RowHeight = 20
            .Tab.Color = 15656192 '
            .usedRange.Columns.AutoFit
            .usedRange.HorizontalAlignment = 3
            .usedRange.Columns(1).Interior.Color = vbYellow

     End With
     Next
    
    wb.Save
    objapp.Quit
    Set objapp = Nothing
    
End Sub

 

[kkhalifa1960]

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

[Radwan0]

@kkhalifa1960 @kanory

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

اخوتي مرفق لكم مثال من قاعدة بيانات 

عند الدخول الى نموذج EXCEl والضغط على زر التصدير الى اكسل

قمت باستخدام هذا الكود 

Private Sub Excel_Click()
On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Contacts", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [Last Name],[First Name],[E-mail Address] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 12.0 XML;HDR=yes;] FROM qyrcustomer"

 MsgBox "O.k"
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True
End Sub

 

اللى محتاجه هو كيف بالامكان جعل ورقة الاكسل تبدأ من اليمين الى اليسار

اختيار نوع الخط

اختيار حجم الخط

وايضا تنسيق التباعد بين الاعمدة

 

Database1.accdbFetching info...

[kanory]

  في 10‏/3‏/2023 at 21:30, Radwan0 said:

اللى محتاجه هو كيف بالامكان جعل ورقة الاكسل تبدأ من اليمين الى اليسار

اختيار نوع الخط

اختيار حجم الخط

وايضا تنسيق التباعد بين الاعمدة

Expand  

طيب شوف كدة .....

 

kan_b.accdbFetching info...

[Radwan0]

@kanory اخي العزيز حصلت على الخطأ التالي

[kanory]

جرب المرفق التالي ................

 

Database1 (15).accdbFetching info...

[kanory]

اذا لم يعمل معك ...

انقل الاكواد للمثال لديك ... وجرب

[Radwan0]

@kanory الف شكر لك اخي الكريم فعلا هذا المطلوب 

@محمد احمد لطفىشكرا لك اخي العزيز على المساعده ايضا