Nhờ Anh Chị Giải thích đoạn Code này dùm em! (1 người xem)

[ttqt30]

Sub datacttm()
Application.ScreenUpdating = False
ChDir "D:\2014\Bao Cao"
Workbooks.Open Filename:="D:\2014\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
Tại em mới học VBA hiểu chưa thấu đáo lắm(w,w.nam,w.close,window()... ,) nhờ anh chị giải thích dùm em! Em cảm ơn trước!

 

[ndu96081631]

[h=2]Nhờ Anh Chị Giải thích đoạn Code này dùm em![/h]

Mọi vấn đề liên quan để GIẢI THÍCH CODE, có thể vào đây để hỏi:
http://www.giaiphapexcel.com/forum/showthread.php?85576-Chuyên-mục-xử-lý-gỡ-rối-code-VBA/page9