التحكم في الأكسل من الأكسس (إستيراد - تصدير - تعديل - تنسيق)

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته

من بين أكثر الأسئلة الموجودة في المنتدى هي حول التعامل مع الأكسل من الأكسس سواءا إستيراد أو تصدير.

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

أولا: شرح بعض المصطلحات

الأكسل هو تطبيق Excel.Application يقوم بفتح أو عرض المصنف Workbook 

و المصنف يحتوي على عدة أوراق WorkSheets  و الشيت يحتوي على الكثير من الأعمدة Columns و الأسطر Rows

تقاطع كل سطر و عمود يشكل لنا خلية Cells و كل مجموعة خلايا نحددها تسمى نطاق range

-*- تذكرو هذه المصطلحات جيدا. سوف نعتمد عليها في هذا الموضوع إن شاء الله -*-

ثانيا: إنشاء ملف أكسل جديد

لإنشاء ملف أكسل سوف نقوم بإنشاء تطبيق أكسل Excel.Application و نضيف له مصنف جديد Workbook به ثلاث أوراق sheets و نستطيع إضافة شيت آخر أو أكثر لهذا المصنف ثم نقوم بحفظ هذا الملف بمسار محدد و هذا هو الكود:

    Dim xlApp As Object  'Excel.Application
    Dim xlWB As Object   'Excel.Workbook
    Dim xlWs As Object   'Excel.Sheet

    Set xlApp = CreateObject("Excel.Application") 
    Set xlWB = xlApp.Workbooks.Add   ' إضافة مصنف جديد
    
    Set xlWs = xlWB.Worksheets.Add   ' إضافة شيت جديد
    xlWB.SaveAs CurrentProject.Path & "\2026.xlsx"   ' حفظ الملف باسم 2026

    xlApp.Quit

    Set xlWs = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    MsgBox "انتهت المهمة بنجاح"

ثالثا: التصدير لملف أكسل موجود مسبقا

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

    Dim xlApp As Object  'Excel.Application
    Dim xlWB As Object   'Excel.Workbook
    Dim xlWs As Object   'Excel.Sheet
    Dim curPath As String
    
    curPath = CurrentProject.Path & "\2026.xlsx"    'مسار ملف الأكسل

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False   ' إخفاء التطبيق
    
    Set xlWB = xlApp.Workbooks.Open(curPath)
    Set xlWs = xlWB.Worksheets(1)   ' 1 هو رقم الورقة في ملف الأكسل
       
    xlWs.Cells(1, 1).Value = "الاسم"
    xlWs.Cells(2, 1).Value = "ابوخليل"  ' 2 رقم السطر   و 1 هو رقم العمود
    xlWs.Cells(3, 1).Value = "جعفر"
    
    xlWs.Cells(1, 2).Value = "العنوان"
    xlWs.Cells(2, 2).Value = "الدمام"
    xlWs.Cells(3, 2).Value = "مسقط"
    
    xlWs.Cells(1, 3).Value = "الهاتف"
    xlWs.Cells(2, 3).Value = "011245632"
    xlWs.Cells(3, 3).Value = "033156513"

    xlWB.Save
    xlApp.Quit

    Set xlWs = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    MsgBox "انتهت المهمة بنجاح"

 

التحكم في الأكسل.accdb

[abouelhassan]

شكر وتقدير واحترام من اخيك استاذ صالح بارك الله لنا فيك ياريت تجدلنا حل فى شريط التصدير التقرير للاكسيل ليكون بالشكل المعروض بالتقرير

ربنا يبارك لك يارب

[السعيد سعيدي]

بارك الله فيك استاذ صالح ونفع بك

تم تعديل يونيو 5, 2021 بواسطه السعيد سعيدي

[بلال اليامين]

اخي بارك الله فيك 

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

[صالح حمادي]

منذ ساعه, بلال اليامين said:

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

لم أفهم قصدك

[بلال اليامين]

اخي عند ارسال البيانات الى الاكسيل لم تظهر البيانات داخل الجدول

[SEMO.Pa3x]

احسنت استاذ صالح شرح رائع من شخص أروع

بارك الله بك وزادك من علمه

[ولد جدة]

بارك الله بك وزادك من علمه

[صالح حمادي]

10 ساعات مضت, SEMO.Pa3x said:

احسنت استاذ صالح شرح رائع من شخص أروع

شكرا جزيلا دكتور على مرورك الطيب

4 ساعات مضت, ولد جدة said:

بارك الله بك وزادك من علمه

و فيك بارك الله

22 ساعات مضت, abouelhassan said:

شكر وتقدير واحترام من اخيك استاذ صالح بارك الله لنا فيك ياريت تجدلنا حل فى شريط التصدير التقرير للاكسيل ليكون بالشكل المعروض بالتقرير

ربنا يبارك لك يارب

سوف نحاول

22 ساعات مضت, السعيد سعيدي said:

بارك الله فيك استاذ صالح ونفع بك

و يك بارك الله

16 ساعات مضت, بلال اليامين said:

اخي عند ارسال البيانات الى الاكسيل لم تظهر البيانات داخل الجدول

جرب المرفق الموجود مع المشاركة سوف تجد زر إنشاء ملف أكسل و زر ارسال أو تصدير بيانات

اضغط على زر  ان شاء ملف اكسل ثم اضغط على الزر الثاني و اذهب لمسار الملف سوف تجد ملف أكسل اسمه   2026

في الشيت 4سوف تجد البيانات