Dim cy_Ass As String = "d:\\3213.xls"
Dim App As New MSExcel.Application
try
    Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(cy_Ass)
msgbox(cy_Ass)
    Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets("Sheet1")
    App.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
msgbox(1)
    For Each p As object In Ws.HPageBreaks
        Output.Show(p.Location.Row)
msgbox(2)
    Next
catch ex As Exception
    msgbox(ex.message)
finally
    App.quit
End try

无法弹出msgbox(2)

这个48怎么理解  是行数么  又和表中对应的47不对

我想获得的是表中的预览总页数2  这个怎么输出呢？

此主题相关图片如下：11.png

Dim cy_Ass As String = "d:\\3213.xls"
Dim App As New MSExcel.Application
try
    Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(cy_Ass)
msgbox(cy_Ass)
    Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets("Sheet1")
    App.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
msgbox(1)
    For Each p As object In Ws.HPageBreaks
        Output.Show(p.Location.Row)
msgbox(2)
    Next
catch ex As Exception
    msgbox(ex.message)
finally
    App.quit
End try

Dim cy_Ass As String = "d:\\3213.xls"
Dim App As New MSExcel.Application
try
    Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(cy_Ass)
    \'msgbox(cy_Ass)
    Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets("Sheet1")
    App.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
    \'msgbox(1)
    msgbox(Ws.HPageBreaks.count)
    For Each p As object In Ws.HPageBreaks
        Output.Show(p.Location.Row)
       
        \'msgbox(2)
    Next
catch ex As Exception
    msgbox(ex.message)
finally
    App.quit
End try

老师  弹出的msgbox(Ws.HPageBreaks.count)值是1  实际效果入楼上的图片  该文件的总页数是2

好的 谢谢老师

对于读取excel的内容  有没有对应的代码可以参考学习一下呢