获取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问题 | 阅读 2163 次
文章评论,共3条
刀密况进(游客)
2023-02-03 16:26
1
太高深了。这个有点看不懂。有没有更具体的操作流程图或更详细的讲解呢。谢谢。
刀密况进(游客)
2023-02-10 10:18
2
做了一个目录,第二列:到提取每个工作表的名称(已经做到了),第三列:想要实现对应的工作表能够打印几页(这个无法实现)。第四列:页码范围根据第三列的页数自动计算页码范围(已经实现),请求大神破解。
sdta(作者)
2023-02-11 14:55
3
以下是引用刀密况进在2023-02-10 10:18的发言1
做了一个目录,第二列:到提取每个工作表的名称(已经做到了),第三列:想要实现对应的工作表能够打印几页(这个无法实现)。第四列:页码范围根据第三列的页数自动计算页码范围(已经实现),请求大神破解。
加我好友,QQ:243688667
游客请输入验证码
浏览399907次