Đóng file đang mở ?

[vumian]

dear all,

mình có chưa biết cách đóng file bằng vòng lặp này làm sao,
- mình dùng vòng lặp để mở một số file

 For i = LBound(Mang) To UBound(Mang) Step 1
      sFile = ThisWorkbook.Path & "\" & Mang(i) & "ABC.xls"
Workbooks.Open sFile
' call function
' Windows.close <-- đóng hết các file,hix
Next i
End if

Làm sao đóng từng file đã mở bằng vong lặp trên
cam on

 

[chibi]

For i = LBound(Mang) To UBound(Mang) Step 1
NameBook = Mang(i) & "ABC.xls"
Workbooks(NameBook).Close SaveChanges:=False '(or True)
Next i
End if

 

[vumian]

Hong duoc Chibi ơi, cứ báo lỗi ngay chỗ
Workbooks(NameBook).Close SaveChanges:=False

Mình nghĩ là do mở mở file bằng vòng lặp, rùi close phải tư nguọc lại, cứ báo lỗi wài, chán ghê

 

[vumian]

oh yeah, duoc rùi, hiểu rùi, cám ơn Chibi,ngồi tới nủa đêm, cuối cùng cũng ra, pó tay, bờm thiệt,hihi