Đóng file đang mở ?

[sonbutterbee]

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

View more random threads:

• Một số Macro thông thường
• Chọn các mã hàng tự động theo ngày, không trùng nhau.
• Cách record lại tên người dùng thay đổi lần cuối.
• Lập các đơn thuốc bằng excel.
• Dư ra 1 Sheets khi đếm bằng VBA
• Tích hợp VNspeech để phát âm tiếng Việt dựa trên tổng hợp formant
• Cell tự động đổi màu nền khi có dữ liệu!!!
• Làm sao edit VBA project
• Giúp em code VBA copy và Paste
• xem dùng em lại code trong file excel

[hungosp]

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

[Mrhieuson]

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ê

[conggameviet]

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