要把页面设置为分页状态,才能正常获取分页符
Dim cy_Ass As String = "E:\问题\过程.xls"
Dim App As New MSExcel.Application
try
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(cy_Ass)
Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets("过程FMEA")
App.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
For Each p As object In Ws.HPageBreaks
Output.Show(p.Location.Row)
Next
catch ex As Exception
msgbox(ex.message)
finally
App.quit
End try