Kết quả tìm kiếm

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...