エクセルのすべてシートの位置をA1セルに移動する

' 引数の数を取得
argCount = WScript.Arguments.Count
' 引数が渡されていない場合、メッセージを表示して終了
If argCount = 0 Then
    WScript.Echo "ファイルパスが指定されていません。"
    WScript.Quit
End If

' エクセルアプリケーションを作成
Set objExcel = CreateObject("Excel.Application")

' エクセルファイルを開く（ここでファイルパスを指定）
Set objWorkbook = objExcel.Workbooks.Open(WScript.Arguments(i))

' すべてのシートを処理
For Each objWorksheet In objWorkbook.Worksheets
    ' シートの内容をA1セルに移動
    objWorksheet.UsedRange.Copy
    objWorksheet.Cells(1, 1).PasteSpecial xlPasteValues
Next

' エクセルファイルを保存
objWorkbook.Save

' エクセルファイルを閉じる
objWorkbook.Close

' エクセルアプリケーションを終了
objExcel.Quit

' オブジェクトを解放
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing