Как я избавлюсь от этих сообщений об ошибках?

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 .