استيراد ملف اكسيل الى جدول جديد عن طريق الكود

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

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

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

0125.xls testdate4.mdb

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

[ابو البشر]

تريد استيراد من الاكسل ام تصدير للاكسل ؟؟؟

لان ملف الاكسل ليس فيه بيانات ؟؟؟؟

 

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

عاوز انقل صفحة الاكسل كجدول غير موجود فى اكسيس بالبيانات

[ابو البشر]

18 دقائق مضت, محمد احمد لطفى said:

عاوز انقل صفحة الاكسل كجدول غير موجود فى اكسيس بالبيانات

طيب جرب كده ......

Dim x3, x4
x3 = CurrentProject.Path & "\" & "0125" & ".xls"
'اكتب اسم الجدول المراد انشاءه
x4 = "جدول جديد"
DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, ""

 

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

جزاك الله خيراً أستاذى @ابو البشر

هل هناك امكانية لحذف  الصف الاول الفارغ من اكسيل قبل النقل 

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

[ابو البشر]

1 دقيقه مضت, محمد احمد لطفى said:

جزاك الله خيراً أستاذى @ابو البشر

واياك استاذي الفاضل

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

أستاذى @ابو البشر

هل هناك امكانية لحذف  الصف الاول الفارغ من اكسيل قبل النقل 
حيث فى هذا الجدول يتم نقل اسماء حقول اكسل

0125.xls

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

[ابو البشر]

20 دقائق مضت, محمد احمد لطفى said:

أستاذى @ابو البشر

هل هناك امكانية لحذف  الصف الاول الفارغ من اكسيل قبل النقل 
حيث فى هذا الجدول يتم نقل اسماء حقول اكسل

يعني انت تحتاج اسماء الحقول فقط

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

أقصد هذا الصف  بالصورة الملف فى المشاركة السابقة ينقل رؤوس الحقول كبيانات فى الجدول و يكون رؤوس الحقول من أكسس

[ابو البشر]

5 دقائق مضت, محمد احمد لطفى said:

أقصد هذا الصف  بالصورة الملف فى المشاركة السابقة ينقل رؤوس الحقول كبيانات فى الجدول و يكون رؤوس الحقول من أكسس

 

في الجدول وبعد الاستيراد غير موجود !!!!

[ابو البشر]

وهذا شكل الجدول بعد الاستيراد ووضع بعض البيانات به 

 

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

أستاذى @ابو البشر
هذا المرفق

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

0125.xls

[سامي الحداد]

منذ ساعه, محمد احمد لطفى said:

أستاذى @ابو البشر
هذا المرفق

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

0125.xls 32 kB · 2 downloads

مثل ما تفضل به الاستاذ @ابو البشر والكود له جزاه الله خيرا .

انا فقط حذفت السطر الاول من الاكسل حسب طلبك  جرب ووافينا بالنتيجة .

 

testdate4.rar

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

أستاذى @سامي الحداد
جزاك الله خيراً
حضرتك حذفت السطر الاول يدوى ولا من خلال اكسيس أرجو الافادة

سؤال ممكن اسماء الحقول تبدأ من السطر التانى فى اكسيس 
 

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

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

جزاكم الله خيراً 
تم ايجاد اضافته
اذا كان هناك تعديل على "A2:j100000" ليكون أفضل يرجى التنبيه
 

Dim x3, x4
x3 = CurrentProject.Path & "\" & "0125" & ".xls"
'اكتب اسم الجدول المراد انشاءه
x4 = "جدول جديد"
DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"

 

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

[سامي الحداد]

1 ساعه مضت, محمد احمد لطفى said:

أستاذى @سامي الحداد
جزاك الله خيراً
حضرتك حذفت السطر الاول يدوى ولا من خلال اكسيس أرجو الافادة

سؤال ممكن اسماء الحقول تبدأ من السطر التانى فى اكسيس 
 

تم حذف السطر الاول من ملف الاكسس بواسطة كود من الاكسس وهذا هو الكود.

Sub DeleteFirstRow()
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application

    Dim xlWorkbook As Excel.Workbook
    Set xlWorkbook = xlApp.Workbooks.Open("C:\xxxxx\0125.xls")غير مسار الملف   
											
    xlWorkbook.Sheets(1).Activate

    Dim firstRow As Excel.Range
    Set firstRow = xlApp.ActiveSheet.Range("A1:IV1")

    firstRow.Delete

    xlWorkbook.Save
    xlWorkbook.Close

    xlApp.Quit
End Sub

بالتوفيق

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

شكراُ أستاذى @سامي الحداد 
أتت رسالة خطأ و بالبحث تقريبا عاوزة مكتبة 

[سامي الحداد]

نعم اخي @محمد احمد لطفى

تحتاج الى مكتبة  Microsoft Excel XX.X Object Library

xx.x = رقم نسحة الاوفيس لديك  12.0 او 14.0 او 15.0 الخ..

تحياتي