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

Question

My file.xlsm has some code. After first time opening it has to save the file to.xlsx and delete the.xlsm

I have the following code:

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

The saveas part works fine. But the kill gives me an error 70

why?

Answer 1

Try deleting the file from command line, using a batch file

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