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 '關(guān)閉工作簿
End Sub
關(guān)閉工作簿默認(rèn)保存變化,不提示违诗。
Sub 關(guān)閉工作簿保存改變()
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 '關(guān)閉工作簿默認(rèn)保存更改。False為不保存更改疮蹦。
End Sub
Sub 另存為()
'當(dāng)前活動(dòng)工作簿另存為AAAA.xlsx，注意路徑要存在阵苇。
'如果已經(jīng)存在AAAA.xlsx工作簿壁公，則會(huì)提示，是否覆蓋原工作簿绅项。
'使用此語句屏蔽警告紊册，直接覆蓋原工作簿。
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba筆記\15.操作工作簿\AAAA.xlsx"
Application.DisplayAlerts = True
End Sub
