Excel 将XLS保存到XLSM

当运行宏时，Excel将耗尽所有行，因为它位于XLS中

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

我的宏位于不同的Excel工作簿中。我输入要使用的Excel工作簿的路径“C2”，然后运行宏

我有以下代码保存为XLSX，但它给了我一个错误：

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

错误是：

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

---

尝试使用与原始文件相同的名称，但让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文件格式。

尝试使用与原始文件相同的名称，但让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文件格式。

。。。请问，

myFileName

的值是什么？它应该有一个特定的值吗？我必须把它放在什么地方吗？我的意思是文件的值名与我第一次打开的XLS中的值名相同。。。请问，

myFileName

的值是什么？它应该有一个特定的值吗？我必须把它放在什么地方吗？我的意思是文件的值名与我第一次打开的XLS中的值名相同