vba Excel 2003格式转换为Excel 2007格式

我将文件Excel 2003 xls格式更改为Excel 2007 xlsx格式。 我能够改变，但有一些文件，我不能打开。 当我打开特定的文件。 它说“excel中删除部分/xl/drawings/drawing1.xml部分。（绘graphics状）”

我看着其他线程，但找不到解决scheme。

我用这个和编辑如下。

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