Excel 2013 已删除部分：/xl/drawings/vmlDrawing1.vml答案

【问题标题】：Excel 2013 Removed Part: /xl/drawings/vmlDrawing1.vmlExcel 2013 已删除部分：/xl/drawings/vmlDrawing1.vml
【发布时间】：2015-12-29 19:30:27
【问题描述】：

我在 Excel 2013 中完成这些操作后

strSaveName = ThisWork.Path & "\" & strExt & ".xlsx"
.SaveAs strSaveName, FileFormat:=51

Excel 在打开此 xlsx 文件时出现以下错误： “Excel 在 'newFile.xlsx' 中发现了不可读的内容。是否要恢复此工作簿的内容？如果您信任此工作簿的来源，请单击是。”

单击“是”后，我会收到以下通知： “Excel 能够通过修复或删除不可读的内容来打开文件。删除的部分：/xl/drawings/vmlDrawing1.vml 部分。（绘图形状）”

所有评论也被删除。

如果我以另一种格式保存

strSaveName = ThisWork.Path & "\" & strExt & ".xls"
.SaveAs strSaveName, FileFormat:=56

一切正常，而不是警告 excel 2003 中不支持的公式

如何解决这个问题并将文件另存为 xlsx ？

【问题讨论】：

你试过没有fileformat吗？
是的，我试过 .SaveAs strSaveName, 51 并且错误相同
大声笑我的意思是完全没有那个论点。只需.SaveAs strSaveName
是的，同样的错误
嗯，你一定有一些古老的或不兼容的数据 XD

标签： vba excel

【解决方案1】：

尝试在您的原始文件上运行此代码

Dim objcomment As Comment

    For Each objcomment In ActiveSheet.Comments
        With objcomment.shape
            .top = objcomment.Parent.top
            .Visible = False
        End With
    Next

【讨论】：