另存为不含宏的数据文件的VBA代码，并重命名

可爱小喵喵

另存为不含宏的数据文件的VBA代码
Sub 宏1()
    Dim sFullName$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With ActiveWorkbook
        sFullName = .FullName
        .SaveAs Filename:=Replace(.FullName, ".xlsm", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'        另存为后处理进行数据处理
        Workbooks.Open sFullName '打开原来的文件
        .Close True '保存关闭新文件
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
我想要另存的.xlsx文件名在代码里修改一下比如这样"名称-" & Format(Date, "YYYYMMDD").xlsx

ykcbf1100

没有附件，那大致就这样了。

可爱小喵喵

ykcbf1100 发表于 2023-3-14 12:56
没有附件，那大致就这样了。

Sub 宏1()
    Dim sFullName$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With ActiveWorkbook
        sFullName = Split(.FullName, ".")(0) & Format(Date, "YYYYMMDD") & ".xlsx"
        .SaveAs Filename:=sFullName, FileFormat:=51
        .Close True '保存关闭新文件
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
这个是就在表名后加时间



我想的就比如附件，现在是表名为：表1，我想的另存为结果的表名是：材料表-20230315