اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم 

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

حجم الخط 14

سميك

توسيط الكل 

العنواين 16 والخلفية صفراء

يبداء التنسيق حسب التحديد من خانة  cmb_Upper_Left_cell

طبعا مع الاطار السميك

مرفق ملف للتطبيق عليه

وشكرا مقدما 

 

 

الميزانية ملف بسيط.accdb

رابط هذا التعليق
شارك

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

 

Sub ExportToExcel()
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim j As Integer

    ' افتح تطبيق إكسل
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

    ' افتح سجل البيانات (Recordset) الذي تريد تصديره
    Set rs = CurrentDb.OpenRecordset("اسم_الجدول_أو_الاستعلام")

    ' تصدير العناوين
    For i = 0 To rs.Fields.Count - 1
        xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i

    ' تصدير البيانات
    rs.MoveFirst
    i = 2
    Do While Not rs.EOF
        For j = 0 To rs.Fields.Count - 1
            xlSheet.Cells(i, j + 1).Value = rs(j)
        Next j
        i = i + 1
        rs.MoveNext
    Loop

    ' تنسيق العناوين
    With xlSheet.Rows(1)
        .Font.Bold = True
        .Font.Size = 16
        .Interior.Color = RGB(255, 255, 0) ' خلفية صفراء
        .HorizontalAlignment = -4108 ' توسيط النص
    End With

    ' تنسيق البيانات
    With xlSheet.Range(xlSheet.Cells(2, 1), xlSheet.Cells(i - 1, rs.Fields.Count))
        .Font.Size = 14
        .Font.Bold = True
        .HorizontalAlignment = -4108 ' توسيط النص
    End With

    ' توسيع الأعمدة لتلائم المحتوى
    xlSheet.Columns.AutoFit

    ' عرض تطبيق إكسل
    xlApp.Visible = True

    ' تنظيف الذاكرة
    Set rs = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

 

  • Thanks 1
رابط هذا التعليق
شارك

هو انا محدش معبرني ليه اكيد الموضوع مش صعب علي الخبرا ء في هذا المجال 

كل ما في الامر اني تركتن البرمجة من 2017 ولا اتذكمر شئ بسبب معاناتي من ضعف الذاكرة البرنامج انا مصممة من 2017 وقررت اطوره بما يناسب الادارات التعليمية 

الرجاء المساعدة ان امكن لو سمحتوا 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information