vba Excel 2003格式到Excel 2007格式

我将文件Excel2003XLS格式更改为Excel2007XLSX格式。 我可以更改，但有些文件无法打开。 当我打开特定文件时。它说excel删除了part/xl/drawings/drawing1.xml部分。图形形状

我查看了其他线程，但找不到解决方案

我使用和编辑如下

Sub fileConv(filepath As String)
Dim ext
ext = ".xls"

Dim WB As New Excel.Workbook
Set WB = Workbooks.Open(Filename:=filepath + ext)
Application.DisplayAlerts = False
WB.SaveAs Filename:=filepath + ".xlsx", FileFormat:=xlOpenXMLWorkbook
WB.Close
End Sub

---

您的代码看起来很好，但是，这似乎是Excel和某些绘图的问题，如快速谷歌搜索显示的注释中的图片。您的文件中有复杂的图形吗？MP24谢谢您的回复。图形（如图片）jpeg带箭头和矩形，最后分组。我也有一些带有宏的文件，我把它们改成了xlsm，它们也有同样的问题。即使我删除了宏，问题仍然存在。