Set obj = CreateObject( "Excel.Application" )

obj.DisplayAlerts = False	' 削除時に確認ダイアログを表示しない

strTarget = "C:\TEMP\excel\Book1.xls"
strSheet = "社員マスタ"

' **********************************************************
' OPEN
' **********************************************************
Set objBook = obj.Workbooks.Open( strTarget )

' **********************************************************
' 削除
' **********************************************************
on error resume next
objBook.Sheets( strSheet ).Delete
if Err.Number <> 0 then
	WSCript.Echo Err.Description
	obj.Quit
	WScript.Quit
end if
on error goto 0

' **********************************************************
' 保存と終了
' **********************************************************
objBook.Save
obj.Quit

Set Wsc = CreateObject( "Lbox.BatchWsc" )

strTarget = "C:\TEMP\excel\Book1.xls"
strSheet = "社員マスタ"

Call Wsc.DeleteSheet( strTarget, strSheet )