查找分页符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找分页符

共有3599人关注过本帖树形打印复制链接主题：查找分页符

漂亮美眉vszh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

查找分页符

Post By：2019/12/25 10:59:00 [只看该作者]

老师，同样的代码，差不多数据量的表格，有的表能找到第二个及以上的分页符，有的表确不能，找不到原因
图片点击可在新窗口打开查看

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

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

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

漂亮美眉vszh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2019/12/25 11:00:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:过程.xls

下载信息 [文件大小：下载次数： ]
点击浏览该文件:样件.xls

Dim cy_Ass As String = "C:\Users\89284\Desktop\过程.xls"
Dim App As New MSExcel.Application
Dim Book3 As New XLS.Book(cy_Ass)
Dim SheetSrh3 As XLS.Sheet = Book3.Sheets("过程FMEA")
Dim kkk As Integer = 0
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(cy_Ass)
Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets("过程FMEA")
MessageBox.Show(Ws.HPageBreaks(2).Location.Row)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/25 11:27:00 [只看该作者]

要把页面设置为分页状态，才能正常获取分页符

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)

catch ex As Exception

msgbox(ex.message)

finally

App.quit

End try

漂亮美眉vszh

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2019/12/26 15:03:00 [只看该作者]

Dim cy_Ass As String = "C:\Users\89284\Desktop\1.01可行性分析AQ2019070002s-2019-12-26.xls"
Dim App3 As New MSExcel.Application
Dim Book4 As New XLS.Book(cy_Ass)
Dim SheetSrh4 As XLS.Sheet = Book4.Sheets("可行性分析主表")
Dim kkki As Integer = 0
Dim Wb3 As MSExcel.WorkBook = App3.WorkBooks.Open(cy_Ass)
MessageBox.Show(cy_Ass)
Dim Ws As MSExcel.WorkSheet = Wb3.WorkSheets("可行性分析主表")
App3.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
MessageBox.Show(Ws.HPageBreaks(1).Location.Row)
App3.Quit

图片点击可在新窗口打开查看

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