如何在通过VBA取得一个EXCEL的全部SHEET的页数合计？

Question

如何在通过VBA取得一个EXCEL的全部SHEET的页数合计？---本人发的--消灭 CSDN 专家 贴 --2006/11/06 累计---
http://community.csdn.net/Expert/topic/4850/4850075.xml?temp=.6152918
http://community.csdn.net/Expert/topic/4973/4973839.xml?temp=.3287317
http://community.csdn.net/Expert/topic/5110/5110833.xml?temp=.718075
http://community.csdn.net/Expert/topic/5096/5096258.xml?temp=.9139368
---本人发的--消灭 CSDN 专家 贴 --2006/11/06 累计---

Answer 1

看来这个帖子也要消灭csdn的专家了。

Answer 2

Range("D6").Select
    ActiveCell.FormulaR1C1 = Worksheets.Count
这是一个宏,写好后回在D6显示打开的Excel中全部SHEET的页数

Answer 3

樓主參考一下：
設置連續列印報表頁碼
   Sub SetupFooter()
       Dim She       As Worksheet
       Dim SelSheet  As Variant
       If ActiveWindow.SelectedSheets.Count = 1 Then
          Set SelSheet = ActiveWorkbook.Sheets
       Else
          Set SelSheet = ActiveWindow.SelectedSheets
       End If
    
       For Each She In SelSheet
           She.Activate
           X = X + ExecuteExcel4Macro("Get.Document(50)")
       Next
       'SelSheet.Select
       For Each She In SelSheet
           She.Activate
           ActiveSheet.PageSetup.CenterFooter = "&P+" & T & "/" & X & "頁"
           T = T + ExecuteExcel4Macro("Get.Document(50)")
       Next
       Set SelSheet = Nothing
   End Sub

Answer 4

Worksheets.Count这个方案楼上提了,换一个
-----------------------------------
For Each objWorksheet In Worksheets
     sum++       
Next objWorksheet

Answer 5

Sub Test()
    For Each Nx In ThisWorkbook.Sheets
        tpage = tpage + ExecuteExcel4Macro("GET.DOCUMENT(50,""" & Nx.Name & """)")
    Next
    MsgBox tpage
End Sub