主题：如何读取excel的内容和总页数呢？

excel的内容只能逐个单元格提取

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

页数：msgbox(Ws.HPageBreaks.count)

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

HPageBreaks是分页符数量，一个分页符表示有2页，自己+1即可

好的 谢谢老师

 

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

http://www.foxtable.com/webhelp/topics/2334.htm