Question

请教VBA大神，我以下代码为什么自动保存不了新建的工作簿，出现提示：无法在未启用宏的工作簿中保存以下

Sub 按钮3_Click()
Dim wb, mywb As Workbook
Set mywb = ThisWorkbook
On Error Resume Next
Kill ThisWorkbook.Path & "\" & Month(Date) & "月" & Day(Date) & "日导出工单.xlsx"
Set wb = Workbooks.Add
mywb.Sheets("材料使用").Copy after:=wb.Sheets(1)
mywb.Sheets("工单").Copy after:=wb.Sheets(1)

Application.DisplayAlerts = False
wb.Sheets("sheet1").Delete

wb.Sheets("sheet2").Delete

wb.Sheets("sheet3").Delete
Application.DisplayAlerts = True
wb.SaveAs ThisWorkbook.Path & " \" & Month(Date) & "月" & Day(Date) & "日导出工单.xlsx"

wb.Close

End Sub

Answer 1

wb.SaveAs ThisWorkbook.Path & " \" & Month(Date) & "月" & Day(Date) & "日导出工单.xlsm"

追问

可能是我没表达清楚，当前是XLSM格式的，我希望新建的工作簿另存为XLSX

Answer 2

当前工作簿要是XLSM格式的才能保存代码啊

追问

当前工作簿是XLSM格式的，我想要的是新建1个工作簿，把当前工作簿中的两个表格复制给新建工作簿，然后保存新建工作簿，但是总是不会自动保存，请教各位看看原因是什么