Umiestni tento VBS skript do adresára a spusti:

Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

path = fso.GetAbsolutePathName(".")
Set folder = fso.GetFolder(path)
For Each file In folder.Files
    If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then
        Set wb = app.Workbooks.Open(path & "/" & file.Name)
        name = wb.Worksheets(1).Range("A47").Value
        wb.Close
        Set wb = Nothing
        If file.Name <> name & ".xlsx" Then
            file.Name = name & ".xlsx"
        End If
    End If
Next
app.Quit

Set app = Nothing
Set fso = Nothing