Excelはよく使っているかと。メチャメチャ便利と思うので覚えましょう!
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
' Excel非表示.
objExcel.Visible = False
' 警告メッセージをOFF.
objExcel.DisplayAlerts = False
' ファイルオープン.
objExcel.Workbooks.Open( test.xlsx )
' シート数表示.
WScript.Echo objExcel.Worksheets.Count
' Excel終了.
objExcel.Quit
Set objExcel = Nothing