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

[باسنت العمري]

السلام عليكم /

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

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

الاعمدة الغير مطلوبة، آمل منكم المساعدة .

[Jasmin]

تفضل أخي الكريم

ub ADOImportFromAccessTable(DBFullName As String, _

    TableName As String, TargetRange As Range)

' Example: ADOImportFromAccessTable "C:\FolderName\DataBaseName.mdb", _

    "TableName", Range("C1")

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer

    Set TargetRange = TargetRange.Cells(1, 1)

    ' open the database

    Set cn = New ADODB.Connection

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _

        DBFullName & ";"

    Set rs = New ADODB.Recordset

    With rs

        ' open the recordset

        .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable 

        ' all records

        '.Open "SELECT * FROM " & TableName & _

            " WHERE [FieldName] = 'MyCriteria'", cn, , , adCmdText 

        ' filter records


        RS2WS rs, TargetRange ' write data from the recordset to the worksheet


'        ' optional approach for Excel 2000 or later (RS2WS is not necessary)

'        For intColIndex = 0 To rs.Fields.Count - 1 ' the field names

'            TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name

'        Next

'        TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data


    End With

    rs.Close

    Set rs = Nothing

    cn.Close

    Set cn = Nothing

End Sub

طبعا عليك إضافة مكتبة الADO إلى الVBA

[باسنت العمري]

شكراً لك أخي ، ولكن أنا لست خبير في الاكواد ، كيف يتم تنفيذ ذلك لو يمكن التطبيق على مثال أو شرح الكودولك كل الشكر

[باسنت العمري]

للرفع

[باسنت العمري]

للرفع

[أ / محمد صالح]

الأخت الكريمة

الكود الذي وضعه أخونا/اختنا jasmin صحيح ويقوم باستيراد الجدول كاملا أيضا من خلال ado

ولكي تقومي باستيراد حقول معينة من الجدول يلزمك بعض الخبرة بكتابة لغة الاستعلامات SQL

ولهذا أنصحك بتصميم استعلام للحقول التي تريدين استيرادها من الأكسس (في الأكسس) ثم تقومي بتصدير هذا الاستعلام إلى ملف الإكسل المطلوب

أتمنى أن يكون اتضح الأمر