好的,我创建了一个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