【已自行解决】制宏保存后跳出窗口确认，怎么去掉？

lgt288

Sub 保存数据1()
    Dim ha
    ha = Sheets("录入").Range("B3").Value
    he = Sheets("录入").Range("C3").Value
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Sheets("数据表").Select
    Sheets("数据表").Copy
    ChDir "D:\My Documents\l\z\每日数据备份\" & he & ""
    ActiveWorkbook.SaveAs Filename:= _
        "D:\My Documents\l\z\每日数据备份\" & he & "\" & ha & ".txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Sheets("录入").Select
End Sub
上面是录制的宏，我设了几个变量，关键是最后保存那块，保存后不能自动完成，总是提醒一次，是否保存文件的窗口，请问怎么编写才不会出现这个确认窗口。

lgt288

lgt288

可以在任何宏代码中加入下面两句
  ActiveWorkbook.Saved = True
    ActiveWorkbook.Close    ' 或者    ActiveWindow.Close

或者单独一个宏命令
Sub NoSaveClose()
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    'ActiveWindow.Close
End Sub


ActiveWorkbook.Saved = True
这句话其实是欺骗性地告诉vba，我这个文件已经保存好了，
而不管实际上该文件是否已经做了保存。