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

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

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

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

0125.xlsFetching info... testdate4.mdbFetching info...

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

[ابو البشر]

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

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

 

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

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

[ابو البشر]

  في 25‏/1‏/2023 at 16:09, محمد احمد لطفى said:

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

Expand  

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

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

 

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

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

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

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

[ابو البشر]

  في 25‏/1‏/2023 at 16:42, محمد احمد لطفى said:

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

Expand  

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

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

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

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

0125.xlsFetching info...

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

[ابو البشر]

  في 25‏/1‏/2023 at 16:53, محمد احمد لطفى said:

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

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

Expand  

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

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

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

[ابو البشر]

  في 25‏/1‏/2023 at 17:31, محمد احمد لطفى said:

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

 

Expand  

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

[ابو البشر]

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

 

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

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

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

0125.xlsFetching info...

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

  في 25‏/1‏/2023 at 18:09, محمد احمد لطفى said:

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

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

0125.xls 32 kB · 2 downloads

Expand  

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

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

 

testdate4.rarFetching info...

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

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

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

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

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

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

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

 

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

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

  في 25‏/1‏/2023 at 19:32, محمد احمد لطفى said:

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

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

Expand  

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

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 الخ..

تحياتي