Excelのシート一覧を表示するvbs

showXlsSheets.vbs

Option Explicit
'' ========================================================
''                Excelのシート一覧を表示します
'' --------------------------------------------------------
'' 引数:
''    ファイルパス
'' ========================================================
Dim objFso, fileExcel
Set objFso = CreateObject("Scripting.FileSystemObject")
fileExcel = objFso.GetAbsolutePathName(WScript.Arguments(0))
Set objFso = Nothing

Dim objExcel, objWorkbook, objSheet
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open(fileExcel, ,True)
For Each objSheet in objWorkbook.Worksheets
    Wscript.Echo objSheet.Name
Next
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

fileExcel で絶対パスを取得している部分だが、Excelを開く際にvbsファイルからの相対パスで判断されるのかファイルが見つからないと言われるので相対パスに変更している。

Dim objFso, fileExcel
Set objFso = CreateObject("Scripting.FileSystemObject")
fileExcel = objFso.GetAbsolutePathName(WScript.Arguments(0))
Set objFso = Nothing