26、[VBA入门到放弃笔记] 关闭工作簿

• 关闭工作簿,并保存更改。如果没有wkb.Save这句代码，将提示是否保存工作簿变化。

Sub SaveWb() 
    Dim wkb As Workbook
    Set wkb = Workbooks.Open(Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小狗.xlsx") '打开存在的小狗工作簿
    wkb.Sheets("sheet1").Range("a1") = "小狗" '使单元格A1的值为小狗
    wkb.Save '保存工作簿
    wkb.Close '关闭工作簿
End Sub

---

• 关闭工作簿默认保存变化,不提示。

Sub 关闭工作簿保存改变()
Dim wkb As Workbook
    Set wkb = Workbooks.Open(Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小猫.xlsx") '打开小猫工作簿
    wkb.Sheets("sheet1").Range("a1") = "小猫" '使单元格A1的值为小猫
    wkb.Close savechanges:=True   '关闭工作簿默认保存更改。False为不保存更改。
End Sub

---

• 将工作簿另存为,如果文件夹中已经存在相同的文件,则会提示是否覆盖原文件,Application.DisplayAlerts = False 将屏蔽提示，直接覆盖替换。

Sub 另存为()
'当前活动工作簿另存为AAAA.xlsx，注意路径要存在。
'如果已经存在AAAA.xlsx工作簿，则会提示，是否覆盖原工作簿。
'使用此语句屏蔽警告，直接覆盖原工作簿。
Application.DisplayAlerts = False 
 ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\AAAA.xlsx"
 Application.DisplayAlerts = True
End Sub