如何将xlsm保存为xlsx？

问题描述

我有一个xslm文件。我想将文件另存为xlsx并发送电子邮件。

我可以将其另存为XLS文件。如果我尝试将其另存为xlsx，它确实会被保存，但当我打开它时，它给出一个错误。

ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "MyFileName - " & Format(Date, "mm-dd-yyyy") & ".xlsx"

推荐答案

SaveCopyAs不更改文件类型。

您无法通过SaveCopyAs将.xlsm保存为.xlsx。

编辑

解决办法是保存一份副本，然后更改其类型，同时删除旧副本，如下所示：

Dim wb As Workbook, pstr As String

pstr = ActiveWorkbook.Path & "MyFileName - " & Format(Date, "mm-dd-yyyy") & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=y

Set wb = Workbooks.Open(pstr)
wb.SaveAs Left(pstr, Len(pstr) - 1) & "x", 52
wb.Close False

Kill pstr