Excel 処理

  シート削除



ソースを見やすくする為に、削除時以外のエラー処理を省いていますが、
本来オブジェクトの処理にはすべて必要です。

  
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
  



  Batch Helper でシート削除



  
Set Wsc = CreateObject( "Lbox.BatchWsc" )

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

Call Wsc.DeleteSheet( strTarget, strSheet )
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ