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