|
在当前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 编辑 ] |
|