Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".")

For Each file In folder.Files
    If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then
        On Error Resume Next
        Set wb = objExcel.Workbooks.Open(file.Path)
        For Each ws In wb.Worksheets
            ws.Cells.ClearFormats
        Next
        wb.Save
        wb.Close
        On Error GoTo 0
    End If
Next

objExcel.Quit
WScript.Echo "✅ 全部完成！所有 .xlsx 样式已清空，内容保留"