我將如何擺脫此錯誤消息？

Question

我想問一下如何擺脫這個錯誤通知？ 請看所附圖片。

我正在使用此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

這是錯誤代碼的屏幕截圖

Answer 1

XLM不是FileFormat：= xlOpenXMLWorkbook。 忽略擴展名，並讓FileFormat參數添加正確的擴展名。

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

有關FileFormat類型的完整列表，請參見xlFileFormat枚舉 。