Как узнать сколько страниц в активном листе средствами VBA?

Категория: Basic

2012-07-01 17:55:39

code: #basic

iKolPage = ExecuteExcel4Macro("GET.DOCUMENT(50)")
MsgBox iKolPage

или (Актуально для MS Excel 97, 2000, XP):

code: #basic

iHPageBr = ActiveSheet.HPageBreaks.Count + 1
iVPageBr = ActiveSheet.VPageBreaks.Count + 1
iKolPage = iHPageBr * iVPageBr
MsgBox iKolPage

Поделиться:

Sample Code