[ تمت الإجابة ]المساعدة فى الاستيراد من الاكسل

أستاذي الكريم الغالي : malik2010

لايسحب المثالان اللذان أرفقتهما جميع الأوراق من الأكسيل ، وإنما يسحبان الصفحة الأولى فقط .

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

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

جرب هذه الشفرة بعد تمرير اسم المصنف إليها

ملاحظة: في هذا المثال يجب أن يكون المصنف في نفس مجلد قاعدة البيانات

Sub ImportMultipleExcelWorkSheet(Filename$)
On Error Resume Next
' أنشيء مكون تطبيق أكسس
Set objExcel = CreateObject("Excel.Application")
' objExcel.Visible = True  ' اظهر التطبيق أو ابقه مخفيا

' اقرن بين اسم الملف ودليل قاعدة البيانات الافتراضي
FilePath$ = CurrentProject.Path & "\" & FileName$

' حدد مصنف العمل واسنده للمتغير
Set objWorkbook = objExcel.Workbooks.Open(FilePath$)

' حدد ورقة العمل واسنددها للمتغير
Set colWorksheets = objWorkbook.Worksheets

' اعمل دوار بعددأوراق العمل بالمصنف
For Each objWorksheet In colWorksheets
    Set objRange = objWorksheet.UsedRange
    strWorksheetName = objWorksheet.Name & "!" & objRange.Address(False, False)

    If Not IsObject(CurrentDb.TableDefs(objWorksheet.Name)) Then
        DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _
             objWorksheet.Name, strFileName, True, strWorksheetName
    End If
Next
objExcel.Quit
Set objExcel = Nothing
Set objWorkbook = Nothing
Set colWorksheets = Nothing


End Sub

أستاذي الكريم الغالي :

حاولت مرارا الاستفادة من الكود الذي تفضلتم به ، ولكن لم انجح .

وأنا حاليا أستعمل هذا الكود مكررا بالعدد الذي أتوقّع أنه يغطي صفحات ملف الأكسل وزيادة (ولكن أحس أنه غير ملائم) .

[استفدت هذه الفكرة من مشاركة أستاذنا الكريم : ايهاب عثمان ]

DoCmd.TransferSpreadsheet acImport, 8, "sheet", Me.txtPath, False, "sheet1!A2:AP500"