Nhờ Giải thích Code Mở 1 file Excel Trong VBA

[ttqt30]

Sub update()
Application.ScreenUpdating = False
ChDir "D2014\Bao Cao"
Workbooks.Open Filename:="D2014\Bao Cao\XUAT HD 2014.xls"
Windows("SXTT Gia cong 2014.xls").Activate
ActiveSheet.Calculate
For Each w In Workbooks
If w.Name <> Workbooks("SXTT Gia cong 2014.xls").Name Then
w.Close savechanges:=False
End If
Next w
End Sub

Nhờ ANh chị giải thích dùm em theo từng dòng lệnh em cảm ơn nhiều!