'----------------------------------------
' xlsSelectAllSheetA1.vbs
'
'ドロップしたエクセルの
' 全てのシートの左上を選択状態にした後
' 最初のシートを選択状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ&ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb
Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
xlSht.Range("A1").Activate
Next
xlWb.Worksheets(1).Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing
' xlsSelectAllSheetA1.vbs
'
'ドロップしたエクセルの
' 全てのシートの左上を選択状態にした後
' 最初のシートを選択状態にして
' 上書き保存します。
'
'----------------------------------------
' 操作方法
' エクセルファイルをドラッグ&ドロップするだけ
' 複数ファイルもドロップ可能
'
' 出力先
' 強制的に上書きします。
'
Dim fName
Dim xlApp
Dim xlWb
Set xlApp = WScript.CreateObject("Excel.Application")
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
For Each xlSht in xlWb.WorkSheets
xlSht.Activate
xlSht.Range("A1").Activate
Next
xlWb.Worksheets(1).Activate
xlWb.Save
Next
xlApp.Quit
Set xlApp = Nothing