保存和关闭 Xlsx 文件

保存和关闭 Xlsx 文件

好的,我创建了一个Xlsm工作簿,我需要停用一些选项卡,然后我只需要将其另存为Xlsx桌面。我不需要打开文件。我需要保持原始Xlsm文件打开,这样我就可以清除数据并输入不同的信息并保存它。我可以用一个宏来做到这一点吗?这是我目前所拥有的。一切都运行良好,除了我必须手动关闭Xlsx并重新打开Xlsm,当我每天做几十次时,它会变得乏味。

Sheets(Array("Contractor info", "PTW", "DataBase")).Select
Sheets("DataBase").Activate
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\U0154179\Desktop\ATW " & ActiveSheet.Range("B21").Value & "-" & ActiveSheet.Range("I3").Value & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
End Sub

答案1

尝试以下方法:

Sub Macro3()
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="C:\Users\garys\Desktop\arrr.xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.SaveAs Filename:="C:\Users\garys\Desktop\arrr.xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

相关内容