设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1787|回复: 1
打印 上一主题 下一主题

跪请高人帮忙★★关于总计excel sheet总页码的问题

[复制链接]
跳转到指定楼层
1#
发表于 2008-3-2 14:57:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在当前List.xls里面写了一个宏,如下:

Private Function XLSPages(FileName As String) As Long
Dim DocObj, theWorkSheets, theSheet
    Set DocObj = CreateObject("Excel.Application")
    Set theWorkSheets = DocObj.Workbooks.Open(FileName).Sheets
    DocObj.Visible = False
   
    For Each theSheet In theWorkSheets
        theSheet.Activate
        Debug.Print theSheet.Name
        XLSPages = XLSPages + ExecuteExcel4Macro("Get.Document(50)")
    Next
    Debug.Print XLSPages
   
    DocObj.Workbooks(Right(FileName, Len(FileName) - InStrRev(FileName, "\"))).Close False
    DocObj.Quit
    Set DocObj = Nothing
End Function


是为了打开别的xls文件,然后总计新打开的xls里面所有sheets的打印页码数。但是碰到一个问题,总计出来的页码数总是以List.xls当前的页码数加总,并不是实际的新开xls的页码数。

跪请高人帮忙解决。谢谢啊谢谢。

[ 本帖最后由 hoho5999 于 2008-3-2 15:08 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-3-2 20:44:07 | 只看该作者
什么意思看不明白,请高人指点。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 05:56 , Processed in 0.070267 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表