مطلوب كود تحويل جدول اكسيس الى ملف اكسيل

[safwat Maher]

السلام عليكم

الاخوة الافاضل بارك الله فيكم

مطلوب كود تصدير جدول اكسيس الى اكسيل

ولكم الشكر

[Shivan Rekany]

2 ساعات مضت, safwat Maher said:

السلام عليكم

الاخوة الافاضل بارك الله فيكم

مطلوب كود تصدير جدول اكسيس الى اكسيل

ولكم الشكر

اتفضل

DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX"

TABLE1 بدلها باسم جدول اللي عندك

D:\TABLE1.XLSX بدلها حرف د بمسار اللي انت تريد ان يحفظها فيه و تابل1 باسم اللي تريد ان يخزن به وخليه الباقي

مع تقدير

 

[jjafferr]

وهذه مشاركة مع اخي شفان

 

اذا اردت اسماء الحقول تظهر في اعلى اعمدة الاكسل
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", True

وبدون اسماء الحقول
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", False

 

جعفر

[jjafferr]

وتفضل هذا نموذج جاهز ، فما عليك الا:

1- تعبئة البيانات المطلوبة ، من اسم الجدول او الاستعلام ، ومكان الحفظ ، وصيغة الحفظ ، ووو 

او

2- تستخدم دالة كود النموذج ، وترسل المطلوب عن طريق الكود اليها (انا لم اشر الى هذا في الموضوع السابق) ، وهذا الكود من البرنامج المرفق:

هذه بعض المتغيرات ، والمتغيرات الباقية مأخوذة مباشرة من النموذج

    i_strSql = "Select * From " & Me.cmb_TQ_Name
    i_strWorkSheet = Nz(Me.cmb_Sheet_Name, "")
    i_strCellRef = Nz(Me.cmb_Upper_Left_cell, "")
    i_strSaveAs = Nz(Me.cmb_SaveFormat, "")



وهكذا تستطيع ان تنادي الدالة ، فتقوم بالعمل بدل من استخدام النموذج

    Call CopyRs2Sheet(i_strSql, i_strWorkBook, _
                      i_strWorkSheet, _
                      i_strCellRef, _
                      i_strSaveAs, _
                      Me.frm_Auto_Fit, _
                      Me.frm_Delete_Exisiting_File, _
                      Me.Open_The_File_on_Completion)

 

 

جعفر

[Shivan Rekany]

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

وهذه مشاركة مع اخي شفان

 

اذا اردت اسماء الحقول تظهر في اعلى اعمدة الاكسل
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", True

وبدون اسماء الحقول
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table1", "D:\Temp\my.xlsx", False

 

جعفر

اه منك يا جعفر اه 
وينك يا استاذ 

الحمد لله 

طلع الشمس من منتدانا من جديد

 

اخوك الصغير

شفان ريكاني

تم تعديل نوفمبر 28, 2016 بواسطه Shivan Rekany

[jjafferr]

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

 

22 دقائق مضت, Shivan Rekany said:

اه منك يا جعفر اه

 

احنا لما نسمع واحد يتأوه ، نقول له: بسم الله عليك 

حياك الله

 

جعفر