moguno

moguno / キテレツ.vbs

Last active September 21, 2023 12:46

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

	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