بسم الله الرحمن الرحيم 

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

الكود:

SELECT * INTO [Excel 8.0;Database=C:\Test.xls].[Books] FROM Books

حيث أن :

_ Excel 8.0 هو رقم اصدار مصنف الاكسل و يستخدم هذا الرقم أذا كان ملف الاكسل الذى تود نسخ البيانات الية اصدار 97 حتى 2003 ...أما اذا كنت ستستخدم أى اصدار ابتداء من 2007 فما فوق فيجب استخدام الرقم Excel 12.0

_C:\Test.xls مسار مصنف إكسل المراد الاتصال به مع تحديد امتداد المصنف xls حتى اصدار 2003 أما اذا كان 2007 فما فوق فإن الامتداد هو xlsx

_ [Books] هو أسم الشيت أو spreadsheet المراد النسخ الية

_ أما Books هو قاعدة البيانات التى سيتم نسخ محتوايتها .....و يتم استخدام الكود على النحو التالى :

الكود:

Private Sub cmdLoad_Click()
Dim cnSrc As New ADODB.Connection
Dim num_copied As Long

    Screen.MousePointer = vbHourglass
    DoEvents
    
    cnSrc.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & txtAccessFile.Text & _
        ";"
    cnSrc.Execute "SELECT * INTO [Excel 8.0;" & _
        "Database=" & txtExcelFile.Text & "].[Books] FROM Books", num_copied
    cnSrc.Close

    Screen.MousePointer = vbDefault
    MsgBox "Copied " & num_copied & " records."
End Sub


أتمنى ان يكون الدرس مفيد ....تحياتى لكم

انظر ايضا

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

جزاك الله خيرا يا هندسة

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