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

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

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

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

في قاعدة البيانات المرفقة وهي نموذج للمثال الذي اطمح واطمع من حضارتكم مساعدتي في عمل كود تشغيل ماكرو كنت قد سجلته في برنامج الاكسل ثم اخذت كود الماكرو ( الخاص بتنسيق ملف الاكسل ) ووضعته في وحدة نمطية ليتم استدعاء هذا الاجراء في 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

 

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

السلام عليكم 

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

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

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

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

MergMic.rar

[kkhalifa1960]

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

MergMic_KH.rar

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

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

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

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

[kkhalifa1960]

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

MergMic_KH_3.rar

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

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

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

   ممنون منك في ميزان حسانتك ان شاء الله 

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

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

استاذنا العزيز  kkhalifa1960

في هذا المثال تم تحديد مكان تصدير التقرير في مكان وجود قاعدة البيانات والذي هو CurrentProject.Path  طيب انا حاولت انه عند تصدير التقرير , المستخدم  يحدد مكان تصدير التقرير عن طريق مربع الحوار application.fileDialog    ولكن لم استطيع تنفيذ هذا الامر !

هل من الممكن المساعدة في هذا الموضوع ؟

MergMic.rar