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

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

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

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

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

[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"

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

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