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

[ابو عبد الله العراقي]

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

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

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

لكي يظهر شيت الاكسل كما في الصورة المرفقة

MergMic.rar

[kkhalifa1960]

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

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