1 2 3 4 5 6 7 8 | iKolPage = ExecuteExcel4Macro("GET.DOCUMENT(50)")MsgBox iKolPageили (Актуально для MS Excel 97, 2000, XP):iHPageBr = ActiveSheet.HPageBreaks.Count + 1iVPageBr = ActiveSheet.VPageBreaks.Count + 1iKolPage = iHPageBr * iVPageBrMsgBox iKolPage |