ahmed_204079 قام بنشر أغسطس 9 مشاركة قام بنشر أغسطس 9 السلام عليكم اريد من السادة الخبراء مساعدتي في اخراج ملف الاكسيل منسق حجم الخط 14 سميك توسيط الكل العنواين 16 والخلفية صفراء يبداء التنسيق حسب التحديد من خانة cmb_Upper_Left_cell طبعا مع الاطار السميك مرفق ملف للتطبيق عليه وشكرا مقدما الميزانية ملف بسيط.accdb رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر أغسطس 9 مشاركة قام بنشر أغسطس 9 وعليكم السلام ورحمة الله وبركاته... 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 1 رابط هذا التعليق شارك More sharing options...
ahmed_204079 قام بنشر أغسطس 10 الكاتب مشاركة قام بنشر أغسطس 10 (معدل) بارك الله فيك وجزاكم الله خيرا ولكن الرجاء التطبيق علي المثال المرفق الميزانية ملف بسيط.accdb تم تعديل أغسطس 10 بواسطه ahmed_204079 رابط هذا التعليق شارك More sharing options...
ahmed_204079 قام بنشر أغسطس 10 الكاتب مشاركة قام بنشر أغسطس 10 هو انا محدش معبرني ليه اكيد الموضوع مش صعب علي الخبرا ء في هذا المجال كل ما في الامر اني تركتن البرمجة من 2017 ولا اتذكمر شئ بسبب معاناتي من ضعف الذاكرة البرنامج انا مصممة من 2017 وقررت اطوره بما يناسب الادارات التعليمية الرجاء المساعدة ان امكن لو سمحتوا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان