Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\问题\1.02基本资料AQ2019070006s-2019-08-02.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("基本资料")
Dim Rg As MSExcel.Range = Ws.UsedRange '' = Ws.Range("A5") '可指定任意单元格或单元格区
Dim Rowsh As Double = 0
For ih As Integer = 7 To Rg.Rows.Count
Dim rg1 = Ws.Rows(ih)
Rowsh = Rowsh + rg1.RowHeight
Output.Show("第" & ih & "行高度 = " & rg1.RowHeight & ",总高度=" & Rowsh)
If Rowsh >= 3030 Then
Output.Show("第" & ih & "行合并 = " & rg1.MergeCells)
rg1.PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
'MessageBox.Show(ih)
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
'rg1.UnMerge '取消合并
rg1.MergeCells = False '用这种方式也可以取消
Rowsh = 0
End If
Next
Wb.save()
App.Quit
catch ex As exception
App.Quit
End try
加好友 
发短信
Post By：2019/8/2 8:25:00 [只看该作者]
