Office中国论坛/Access中国论坛

标题: 跪请高人帮忙★★关于总计excel sheet总页码的问题 [打印本页]

作者: hoho5999 时间: 2008-3-2 14:57
标题: 跪请高人帮忙★★关于总计excel sheet总页码的问题
在当前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 编辑 ]

作者: yscwl 时间: 2008-3-2 20:44
什么意思看不明白，请高人指点。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)