- 关闭工作簿,并保存更改。如果没有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
