Excel 我将如何消除此错误消息？

我想问一下如何摆脱这个错误通知？请看所附图片

我正在使用以下VBA代码：

  Sub Sample()
'~~> Change Sheet1 to the relevant sheet
'~~> This will create a new workbook with the relevant sheet
ThisWorkbook.Sheets("Fuels_Slips_Issued").Copy

'~~> Save the new workbook
ActiveWorkbook.SaveAs "C:\book1.xlm", FileFormat:=xlOpenXMLWorkbook
 End Sub

---

XLM不是文件格式：=xlOpenXMLWorkbook。省略扩展名，让FileFormat参数添加正确的扩展名

ActiveWorkbook.SaveAs Filename:="C:\book1", FileFormat:=xlOpenXMLWorkbook 'XLSX type

有关文件格式类型的完整列表，请参阅