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

hoho5999

在当前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

什么意思看不明白，请高人指点。