强制是保存并保存为免费工作簿

我制作的macros将模板工作簿保存为两个单独的文件。 每个testing（位置1,2,3或4）保存一个，然后在另一个macros中使用来自每个testing的数据。 第二个是保留备份的原始数据文件。 现在的问题是每次我运行testing每个位置，运行这个macros，它问我是否要保存在以前的testing。 我怎么能告诉它与出问题说是。 同样的我想要保存这个工作簿作为一个macros免费的工作簿。 我必须把我的代码放在哪里，我应该把它放在哪里？ 任何帮助，非常感谢。 谢谢

解决代码：

Sub Auto_Open() With Range("A30") .Value = Time .NumberFormat = "h-mm-ss AM/PM" End With Dim FileName As String Dim FilePath As String Dim FileDate As String MyNote = "Is Cell 'B27' Overview Information" & SavePath & " Location1,2,3,or 4?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo) If Answer = vbYes Then FilePath = "C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test" FileName = Sheets("Data").Range("B27").Text Application.DisplayAlerts = False ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName Dim FileCopyName As String Dim FileCopyPath As String Dim FileTime As String FilePath = "C:\Users\aholiday\Desktop\Backup" FileName = Sheets("Data").Range("B27").Text FileTime = Sheets("Data").Range("A30").Text ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName & FileTime & ".xlsx", FileFormat:=xlOpenXMLWorkbook MsgBox "File was saved!" MsgBox "Ready for Next Test, Please Exit." Application.DisplayAlerts = True Else MsgBox "File was not saved, Please Use Location_1,2,3or,4 Durring SIG ATM Test" End If End Sub 

Answer 1

在尝试保存之前添加Application.DisplayAlerts = False 。 记住在保存之后回到真。

Answer 2

ConflictResolution应该是xlLocalSessionChanges，看不到提示

 ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges 

从

如何使用workbook.saveas和自动覆盖