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
|