Excel 2013：运行 一个宏后，我的单元格样式菜单变得混乱
Excel 2013: My Cell Styles menu gone messy after running a macro
This is the picture of Cell style menu problems
使用 运行 将数据从一个工作簿复制到另一个工作簿的宏后，我的单元格样式菜单变为空白。
这是我的宏代码：
Sheets("Calofic-Daily Sale Report").Select
Range("E1:W67").Copy
Dim wbk As Workbook
Dim folderPath As String
folderPath = Application.ActiveWorkbook.Path
FilePath = Dir(folderPath & "\Today, Todate & Year to date Dispatch of Calofic ******.xlsx")
Set wbk = Workbooks.Open(folderPath & "\" & FilePath)
Set ws = wbk.Sheets("Sheet1")
ws.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wbk.Close True
End Sub
看起来您的样式可能已损坏，无论您需要清理哪些文件。以下两个选项。
1.免费工具
建议您免费下载 运行 XLGeek xlStylesTool。比下面的手动方法好得多的绝妙实用程序。
2。使用 zip
编辑 xml
在 zip mode 编辑工作簿。下面添加了这样做的步骤，以防 link 永远消失
- 将扩展名从 xlsm 或 xlsb 更改为 zip
- 打开 zip 文件，导航到 xl 文件夹，然后将 styles.xml 复制到方便的位置
- 用文本编辑器打开 styles.xml。找到打开和关闭的 cellstyles 标签，然后删除它们和它们之间的所有内容。
- 保存文件，然后复制回 zip 文件
- 恢复原来的扩展。
This is the picture of Cell style menu problems
使用 运行 将数据从一个工作簿复制到另一个工作簿的宏后，我的单元格样式菜单变为空白。
这是我的宏代码：
Sheets("Calofic-Daily Sale Report").Select
Range("E1:W67").Copy
Dim wbk As Workbook
Dim folderPath As String
folderPath = Application.ActiveWorkbook.Path
FilePath = Dir(folderPath & "\Today, Todate & Year to date Dispatch of Calofic ******.xlsx")
Set wbk = Workbooks.Open(folderPath & "\" & FilePath)
Set ws = wbk.Sheets("Sheet1")
ws.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wbk.Close True
End Sub
看起来您的样式可能已损坏，无论您需要清理哪些文件。以下两个选项。
1.免费工具
建议您免费下载 运行 XLGeek xlStylesTool。比下面的手动方法好得多的绝妙实用程序。
2。使用 zip
编辑 xml
在 zip mode 编辑工作簿。下面添加了这样做的步骤，以防 link 永远消失
- 将扩展名从 xlsm 或 xlsb 更改为 zip
- 打开 zip 文件，导航到 xl 文件夹，然后将 styles.xml 复制到方便的位置
- 用文本编辑器打开 styles.xml。找到打开和关闭的 cellstyles 标签，然后删除它们和它们之间的所有内容。
- 保存文件，然后复制回 zip 文件
- 恢复原来的扩展。