เป็นผมจะเขียนเป็นฟังก์ชั่นครับ
- เพิ่มไลบรารี่ excel
- สร้างออปเจ็ค excel.application
- สั่งออปเจค ให้เปิด workbook อันนั้นมา
- แล้วค่อยสั่งนับชีท

Dim ex as excel.application
dim wk as wookbook
set ex=createobject("Excel.Application")
set wk = ex.workbook.open(.............)
j = wk.sheets.count

ประมาณนี้ครับ อันนี้ร่างสดผ่านเว็บเลยนะครับ ยังไม่ได้ตรวจทานผ่าน VBA ดีนัก ลองเอาไปเขียนผ่าน VBA ดูนะครับ ถ้าเพิ่มไลบรารี่เข้ามาแล้ว มันจะมี autolisting พวก พร็อพเพอตี้หรือเมธอด ของออปเจคให้ จะได้เขียนง่ายครับ