xlsx另存为xls后格式全部丢失，Excel2010版如何批量删除自定义样式？

lengyff

方法一:运行宏命令删除
参考自:http://blog.163.com/wilicedon_le ... 483201210124107379/
Alt+F11打开窗口,建立一个宏：

1. Sub DelStyls()
   
2. Dim s As Style
   
3. Dim i_s As Long
   
4. i_s = ThisWorkbook.Styles.Count
   
5. On Error Resume Next
   
6. Application.ScreenUpdating = False
   
7. For Each s In ThisWorkbook.Styles
   
8. If Not s.BuiltIn Then s.Delete
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. MsgBox "共删除" & i_s - ThisWorkbook.Styles.Count & "个单元格格式，还剩" & ThisWorkbook.Styles.Count & "个！", 64, "删除完毕"
    
12. End Sub

复制代码

方法二:修改配置文件删除法
参考自:http://club.excelhome.net/thread-1295405-1-1.html
有个方法供参考，操作前建议备份下文件。
操作方法：
1、把文件的后缀xlsx改成rar，文件变成压缩文件
2、打开这个压缩文件，进文件夹xl，找到文件styles.xml，打开
3、搜索cellStyles，应该有两个，类似这样的<cellStyles count="4">.........</cellStyles>中间还有很多内容，把这个字段及中间的内容都删掉，保存。
4、把压缩文件改回xlsx，打开应该就没有那些样式了。