Cách mở 1 file Excel trong VBA .Nhờ Giải thích các dòng lệnh (1 người xem)

[ttqt30]

Sub update()
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

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

 

[ttqt30]

Nhờ giúp đỡ Vấn đề này khó quá!

 

[Quang_Hải]

Sub update()
Application.ScreenUpdating = False ' Tắt cập nhật màn hình
ChDir "D:\2014\Bao Cao" 'Chuyển đến thư mục này
Workbooks.Open Filename:="D:\2014\Bao Cao\XUAT HD 2014.xls" 'Mở file này
Windows("SXTT Gia cong 2014.xls").Activate 'Kích hoạt của sổ file này
ActiveSheet.Calculate 'Thực hiện tính toán cho sheet hiện hành
For Each w In Workbooks 'Duyệt qua các file đang mở
If w.Name <> Workbooks("SXTT Gia cong 2014.xls").Name Then ' Nếu file đang mở không phải là File SXTT... thì
w.Close savechanges:=False ' Đóng lại không lưu thay đổi
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!

Tra google và dịch ra như thế. Tuy nhiên code viết thấy ghê quá, dư thừa thiếu loạn cào cào ấy.

 

[ttqt30]

Cảm ơn Anh QuangHai Thật nhiều Em đợi chờ mấy ngày nay! Thành thật cảm ơn anh!