VBA -无法从"xlsm“保存为"xlsx”

在 VBA 中，将一个启用了宏的 Excel 文件（.xlsm）保存为一个普通的 Excel 文件（.xlsx）时，可能会遇到一些问题。以下是一些常见的原因和解决方法：

常见问题

宏和代码：.xlsx 文件格式不支持宏和 VBA 代码。如果你的工作簿中包含宏或 VBA 代码，保存为 .xlsx 时这些内容将会丢失。
保护工作簿：如果工作簿或工作表受到保护，可能会导致保存失败。
文件路径和权限：确保目标路径存在且你有写入权限。

解决方法

以下是一个示例代码，展示如何将 .xlsm 文件保存为 .xlsx 文件：

Sub SaveAsXLSX()
    Dim wb As Workbook
    Dim newFilePath As String

    ' 获取当前工作簿
    Set wb = ThisWorkbook

    ' 设置新的文件路径
    newFilePath = "C:\Path\To\Your\NewFile.xlsx"

    ' 保存为 .xlsx 文件
    Application.DisplayAlerts = False ' 禁用警告
    wb.SaveAs Filename:=newFilePath, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True ' 启用警告

    ' 提示保存成功
    MsgBox "文件已成功保存为 .xlsx 格式！", vbInformation
End Sub

详细步骤

获取当前工作簿：
- 使用 ThisWorkbook 获取当前工作簿对象。
设置新的文件路径：
- 将 newFilePath 设置为你希望保存的新文件路径和文件名。
保存为 .xlsx 文件：
- 使用 wb.SaveAs 方法保存工作簿为 .xlsx 格式。
- FileFormat:=xlOpenXMLWorkbook 指定文件格式为 .xlsx。
- 使用 Application.DisplayAlerts = False 禁用警告，以避免覆盖现有文件时的提示。
- 保存完成后，使用 Application.DisplayAlerts = True 重新启用警告。
提示保存成功：
- 使用 MsgBox 提示用户文件已成功保存。

注意事项

路径和文件名：确保 newFilePath 中的路径和文件名是有效的，并且你有写入权限。
宏和代码丢失：保存为 .xlsx 文件时，所有的宏和 VBA 代码将会丢失。如果你需要保留这些内容，请确保在保存前备份原文件。
保护工作簿：如果工作簿或工作表受到保护，可能需要先取消保护再进行保存。

处理错误

为了更好地处理可能出现的错误，可以添加错误处理代码：

Sub SaveAsXLSX()
    On Error GoTo ErrorHandler

    Dim wb As Workbook
    Dim newFilePath As String

    ' 获取当前工作簿
    Set wb = ThisWorkbook

    ' 设置新的文件路径
    newFilePath = "C:\Path\To\Your\NewFile.xlsx"

    ' 保存为 .xlsx 文件
    Application.DisplayAlerts = False ' 禁用警告
    wb.SaveAs Filename:=newFilePath, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True ' 启用警告

    ' 提示保存成功
    MsgBox "文件已成功保存为 .xlsx 格式！", vbInformation

    Exit Sub

ErrorHandler:
    Application.DisplayAlerts = True ' 确保警告被重新启用
    MsgBox "保存文件时出错：" & Err.Description, vbCritical
End Sub

通过这些步骤和注意事项，你应该能够成功地将 .xlsm 文件保存为 .xlsx 文件。希望这些信息能帮助你解决问题。