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

之后我在Excel 2013中做这件事

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

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

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

也是所有的coments被删除。

如果我保存在另一种格式

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

在excel 2003中，不断的改变，而是警告不支持的公式

如何解决这个问题，并保存文件为xlsx？

Answer 1

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

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