درخواست راهنمائی برای ادغام سلولها

[محمد رضا بهبودی]

با سلام و احترام خدمت کلیه اساتید و دوستان محترم
در فایل پیوست عملیات ادغام سلولها انجام نمی شود . لطفا درصورت امکان راهنمائی بفرمایید . ممنون

[محمد رضا بهبودی]

اساتید محترم
لطفا راهنمائی بفرمائید

[mohammadsaleh]

DoCmd.OutputTo acOutputReport, "table1", acFormatXLS, Me.Application.CurrentProject.Path & "\test2.xls", False



Dim objXLBook As Excel.Workbook

Dim objXLSheet As Excel.Worksheet



Set objXLBook = Workbooks.Open(CurrentProject.Path & "\test2.xls")

Set objXLSheet = objXLBook.Worksheets("table1")





With objXLSheet

    .Range("a1:g1").Select

    With .Application.Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    .Application.Selection.Merge

End With





Me.Application.FollowHyperlink Me.Application.CurrentProject.Path & "\test2.xls"

[محمد رضا بهبودی]

ممنون از پاسخ شما