Excel VBA将文件自动保存到xlsx并删除xlsm ->错误70

Question

我的文件.xlsm有一些代码。第一次打开后，必须将文件保存到.xlsx并删除.xlsm

我有以下代码：

Sub OpslaanAls()
Dim Filenamepath As String, FilenamepathNew as String

Application.DisplayAlerts = False
Filenamepath = ActiveWorkbook.FullName
FilenamepathNew = Replace(Filenamepath, ".xlsm", ".xlsx")
Application.DisplayAlerts = False
ThisWorkbook.SaveAs FilenamepathNew, 51 '51 = xlsx
Application.DisplayAlerts = True
Kill Filenamepath 'verwijder de xlsm
End Sub

saveas部分工作良好。但这次杀人给了我一个错误70

为什么？

Answer 1

尝试使用批处理文件从命令行删除文件

Open "batch_file.bat" for output as #1  'create batch file
Print #1, "del " & Filenamepath         'store the delete file command
close #1
Shell "batch_file.bat"  'execute the batch file