تشغيل كود ماكرو بعد تصدير شيت الاكسل من قاعدة بيانات اكسس

ابو عبد الله العراقي · الأحد at 21:16

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

الأستاذة الافاضل في منتدى الاكسس

في قاعدة البيانات المرفقة وهي نموذج للمثال الذي اطمح واطمع من حضارتكم مساعدتي في عمل كود تشغيل ماكرو كنت قد سجلته في برنامج الاكسل ثم اخذت كود الماكرو ( الخاص بتنسيق ملف الاكسل ) ووضعته في وحدة نمطية ليتم استدعاء هذا الاجراء في button بعد تصدير ملف الاكسل ؟

لكي يظهر شيت الاكسل كما في الصورة المرفقة Screenshot2025-04-26183845.jpg.94a644c742c9dd2b824c75cfa70e7018.jpg

MergMic.rar

**kkhalifa1960** · الأحد at 22:19

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . :fff:

Private Sub أمر3_Click()
    On Error GoTo met
    
    ' تصدير التقرير إلى ملف Excel
    Dim exportPath As String
    exportPath = CurrentProject.Path & "\Report_Export.xlsx"
    
    DoCmd.OutputTo acOutputReport, "Report1", acFormatXLSX, exportPath, False, , , acExportQualityPrint
    
    ' فتح ملف Excel وتنفيذ دمج الخلايا
    Dim xlApp As Object
    Dim xlBook As Object
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(exportPath)
    
    ' جعل Excel مرئيًا للمستخدم
    xlApp.Visible = True
    
    ' تنفيذ عملية دمج الخلايا
    With xlBook.Worksheets(1)
        .Range("A:B").WrapText = True
        .Range("A:B").HorizontalAlignment = -4108 ' xlCenter
        .Range("A:B").Merge
    End With
    
    ' حفظ الملف دون إغلاقه
    xlBook.Save
    
    ' تحرير الذاكرة (لن نغلق Excel هنا ليبقى مفتوحًا)
    Set xlBook = Nothing
    Set xlApp = Nothing
    
    MsgBox "تم تصدير الملف بنجاح ودمج الخلايا A/B، تم فتح ملف Excel للعرض"
    Exit Sub
    
met:
    MsgBox "حدث خطأ: " & Err.Description
    ' التأكد من إغلاق Excel في حالة الخطأ
    If Not xlApp Is Nothing Then
        xlApp.Quit
        Set xlBook = Nothing
        Set xlApp = Nothing
    End If
End Sub

ابو عبد الله العراقي · الإثنين at 09:17

السلام عليكم

عاشت ايدك استاذ

هو تم تصدير ملف الاكسل وظهرت البيانات على شكل عمودين وايضا ظهرت رسالة تأكيد الدمج

لكن بعد الدمج تختفي البيانات من صفحة الاكسل

ونسخة المثال رفعتها في المرفقات

MergMic.rar

**kkhalifa1960** · الإثنين at 18:58

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . اليك المرفق بعد التعديل . ووافني بالرد . :fff:

MergMic_KH.rar

ابو عبد الله العراقي · الإثنين at 19:39

تعبتك معاي استاذي العزيز، في ميزان حسناتك إن شاء الله

Bوالعمود A ولكن استاذ في المرفق الي حضرتك ارفقته للتو هو صحيح صدر شيت الاكسل لكن ما قام بتشغيل كود دمج العمودين في الاكسل قصدي العمود

حضرتك الكود الاول الموجود في مشاركتك الاولى هو مضبوط ويصدر ويقوم بعملية دمج العمودين في شيت الاكسل ، لكن مع الاسف ما تظهر البيانات المدموجة في شيت الاكسل تظهر الصفحة بيضاء فقط هل هناك حل لهذه المشكلة ؟ 1184825586_.jpg.5d09cd8c00a44e1fc074757c12606a6c.jpg