使用vb输出到excel，请问我如何获取这个excel.sheet的页数？

Question

如题

Answer 1

先引用上Excel.Private Sub CommandButton1_Click()   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets.Add
   
   xlApp.Visible = True
 
   MsgBox xlApp.Sheets.Count
   
   'xlBook.Close   
   'xlApp.Quit
End Sub

Answer 2

呵呵，这个是统计Sheets的个数，不是该报表的打印页数