xlsxファイルをドラッグアンドドロップするだけで初期セル位置をA1に移動させるWSHスクリプト

キテレツ.vbs

Dim objExcel
Set objExcel = CreateObject("Excel.Application")

Dim objBook
Set objBook = objExcel.Workbooks.Open(WScript.Arguments(0))

Dim objSheet
For Each objSheet In objBook.WorkSheets 
  objSheet.Cells(1, 1).Select()
Next

objBook.Save()
objBook.Close()