将XLS保存到XLSM

Question

运行宏时，Excel不在XLS中，因此行用完了。

我想在一开始将文件另存为XLSX，然后使宏在刚刚保存的XLSX文件上运行。 它应该与XLS具有相同的名称。

我的宏在另一个Excel工作簿中。 我键入“ C2”要使用的Excel工作簿的路径，然后运行宏。

我有以下代码另存为XLSX，但这给我一个错误：

aWbookIworkWith.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook

错误是：

运行时错误“ 1004”：
无法访问该文件。 请尝试以下方法之一：
•确保指定的文件夹存在。
•确保包含文件的文件夹不是只读的。
•确保文件名不包含以下任何字符：<>？ []：| 要么 *
•确保文件/路径名所包含的字符数不超过218个。**

Answer 1

尝试使用与原始名称相同的名称，但让FileFormat参数确定文件扩展名。

dim myFileName as string

if lcase(right(aWbookIworkWith.fullname, 4)) = ".xls" then
    myFileName = left(aWbookIworkWith.fullname, len(aWbookIworkWith.fullname)-4)
    aWbookIworkWith.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook
else
    debug.print "not an XLS workbook"
end if

当然，包含此代码的VBA项目不应与aWbookIworkWith放在同一工作簿中，因为XLSX不能包含VBA项目。 为此，请使用XLSM或XLSB文件格式。