出错：方法saveas作用于对象workbook时失败

BMW5566

Sub 仅存数据()
    Dim sht, shp
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "" & ActiveWorkbook.Name & "-纯数据.xlsx", _
        FileFormat:=xlOpenXMLWorkbook '另存为xlsx格式 清除宏代码
    Sheets.Select
    Cells.Select
    Selection.Copy '粘贴数值,删除公式
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets(1).Select
    For Each sht In Sheets '删除控件
        With sht
            '.Cells.FormatConditions.Delete '删除条件格式
            For Each shp In .Shapes '清除控件
             shp.Delete
            Next
            '.Cells.Validation.Delete '清除有效性
        End With
    Next
    ActiveWorkbook.Save
     Application.DisplayAlerts = True
End Sub


这段代码会提示：方法saveas作用于对象workbook时失败，这怎么解决！各位高手帮忙下，谢谢！

大灰狼1976

ActiveWorkbook.Path & ""
引号里面应该有个反斜杠

sj15627581616

    ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "-纯数据.xlsx", _
        FileFormat:=xlOpenXMLWorkbook '另存为xlsx格式 清除宏代码

BMW5566

sj15627581616 发表于 2024-1-23 15:31
ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "- ...

谢谢！

   

温特梁°

ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"

我是MAC 版的 Excel 运行的时候这句走不下去，也报这个错，有没有大神帮忙看看