如何取得Excel中活动的工作表个数

我需要把Excel中的活动的book传到下面那个函数
函数是这样的：
Sheet_Parse(wBook : Olevariant) Sheet_Pa