Question

在使用宏时，是否有任何方法可以忽略在使用相同名称的文件保存时单击按钮的需要？我正在保存具有相同名称的文件，每次弹出对话框时询问“此位置已存在名为XXXXX.xlsx的文件。是否要替换它？”有必要点击“是”有没有办法可以否定这个？我在下面复制了一个宏的样本。

 Sheets("TAB 1").Select
 ActiveSheet.Range("$A:$BV").AutoFilter Field:=1, Criteria1:="500710"
 Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
 Selection.Copy
 Workbooks.Add
 ActiveSheet.Paste
 Application.CutCopyMode = False
 ChDir "\\SERVER\C\t\Holding"
 ActiveWorkbook.SaveAs Filename:= _
     "\\SERVER\C\t\Holding\500710.xlsx", FileFormat _
     :=xlOpenXMLWorkbook, CreateBackup:=False
 ActiveWindow.Close
 Range("A1").Select
 Sheets("Instructions").Select
 Range("A1").Select
 End Sub

Answer 1

在SaveAs之前关闭警报。确保之后再打开它们。

Application.DisplayAlerts = False
' Your save code goes here
Application.DisplayAlerts = True

宏中的对话框

1 个答案: