获取EXCEL某一工作表的页数

首页新闻小组威客人才下载博客代码贴在线编程论坛

作者在 2015-04-01 00:18:44 发布以下内容

FileName=GetFile("Xls")
If Empty(FileName)
    Return 
EndIf
oExcel=CreateObject('Excel.application')
oExcel.Workbooks.Open(FileName)
oExcel.SHEETS(1).SELECT
*oExcel.Worksheets("sheet1").Activate
nPages=oExcel.ActiveSheet.HPageBreaks.Count+1
MessageBox(FileName+"共有 "+Transform(nPages)+" 页")
oExcel.Quit
RELEASE oExcel

作者在 2018-09-23 09:35:07 补充以下内容

打印页面的总页数

oExcel.ExecuteExcel4macro("Get.Document(50)")

作者在 2018-09-23 09:51:38 补充以下内容

oExcel.ActiveSheet.HPageBreaks.Count+1

Excel问题 | 阅读 2191 次

文章评论，共3条

刀密况进(游客)

2023-02-03 16:26

太高深了。这个有点看不懂。有没有更具体的操作流程图或更详细的讲解呢。谢谢。

赞回复

刀密况进(游客)

2023-02-10 10:18

做了一个目录，第二列：到提取每个工作表的名称（已经做到了），第三列：想要实现对应的工作表能够打印几页（这个无法实现）。第四列：页码范围根据第三列的页数自动计算页码范围（已经实现），请求大神破解。

赞回复

sdta(作者)

2023-02-11 14:55

以下是引用刀密况进在2023-02-10 10:18的发言1
做了一个目录，第二列：到提取每个工作表的名称（已经做到了），第三列：想要实现对应的工作表能够打印几页（这个无法实现）。第四列：页码范围根据第三列的页数自动计算页码范围（已经实现），请求大神破解。

加我好友，QQ:243688667

赞回复

sdta的博客

sdta

浏览403469次

文章分类