التصدير الى ملف اكسل

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

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

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

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

test 165.rarFetching info...

تم تعديل نوفمبر 10, 2022 بواسطه محمد احمد لطفى

[kanory]

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

Dim Output_Path As String
Output_Path = CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx"
    DoCmd.TransferSpreadsheet acExport, , "data", Output_Path
Application.FollowHyperlink CurrentProject.Path & "\bb" & "-" & Format(Now(), "dd-mm-yyyy") & ".xlsx"

 

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

شكراً أستاذى @kanory
لو سمحت لو عاوز عمود ID و الاسم و التليفون بس

[kanory]

  في 11‏/11‏/2022 at 07:10, محمد احمد لطفى said:

شكراً أستاذى @kanory
لو سمحت لو عاوز عمود ID و الاسم و التليفون بس

Expand  

اخي محمد 

صمم الاستعلام الذي تريد واستبدل اسم الجدول في الكود باسم الاستعلام الذي صممته ...

جرب واذا لم تنجح اعلمنا للتعديل ....

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

أستاذى @kanory

فى الحقيقه الكود سيعمل على نموذج بحث به أكثر من 20 عمود 

الكود فى المشاركه الاولى يعمل و لكن به مشكله فى ملف الاكسل

[kanory]

  في 11‏/11‏/2022 at 11:03, محمد احمد لطفى said:

أستاذى @kanory

فى الحقيقه الكود سيعمل على نموذج بحث به أكثر من 20 عمود 

الكود فى المشاركه الاولى يعمل و لكن به مشكله فى ملف الاكسل

Expand  

Sub EXPORT_TO_EXCEL_01() '.. EXPORT TO EXCEL USING DOCMD RUNSQL
 DoCmd.RunSQL "SELECT [ID],[Fullname],[tel] INTO SHEET_NAME IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM data"
    End Sub

Private Sub Command3_Click()
On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
 EXPORT_TO_EXCEL_01
 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

End Sub

 

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

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