怎样在指定的单元格中显示出总页数和当前页

Question

ExcelSheetX.PageSetup.CenterFooter = "&P/&N"      '在页脚出显示出总页数和当前页的信息
但我想把显示总页数和当前页的信息显示在指定的单元格中所以改成：  
ExcelSheetX.Cells(1, 11).Value = "&P/&N" 
却不能正确显示总页数和当前页了，原样的把&P/&N显示出来
请问要想在指定的单元格中显示总页数和当前页应该怎么写语句呢？

Answer 1

xinliangyu(yxl) ，谢谢你的回复，在word中是采用什么办法啊？ 那Excel中呢？

Answer 2

在Word中插入域能够——当前页：域 {Page}
                      总页数：域 {numpages}

Answer 3

继续关注：Excel中怎样在指定的单元格中显示出当前页和总页码？

Answer 4

用VBA或VB的话，可参考：
http://community.csdn.net/Expert/topic/3877/3877646.xml?temp=.6579401

Answer 5

Dim oSheet  As Excel.Worksheet
    Dim oBook   As Excel.Workbook
    
    Set oBook = ActiveWorkbook
    Set oSheet = ActiveSheet
    
    oSheet .Cells(1, 11).Value = "&" & oSheet.Index & "/" & oBook.Sheets.Count" & "&"这样不知道可不可以!!!

Answer 6

非常谢谢 xinliangyu(yxl) 和 BTbug(由加) To: BTbug(由加) 
oSheet .Cells(1, 11).Value = "&" & oSheet.Index & "/" & oBook.Sheets.Count" & "&"
这样写的话oBook.Sheets.Count不会发生变化哦，因为不管页数有多少总是在一个工作表中，所以工作表的总数总是为1，即oBook.Sheets.Count总为1

Answer 7

oBook是工作簿, oBook.Sheets.Count是工作簿里的工作表的页数, 既总页数! 不可能总为1!!!

Answer 8

是啊，由加说得没错，sheets.count默认是3哟，楼主好好看看！