Code đóng file trong cửa sổ VBE (1 người xem)

[viehoai]

Xin hỏi các anh chị code nào để đóng file đang mở trong cửa sổ VBE
Ví dụ code đóng file Database.xls trong hình dưới đây

 

[nghiaphuc]

Xin hỏi các anh chị code nào để đóng file đang mở trong cửa sổ VBE
Ví dụ code đóng file Database.xls trong hình dưới đây
View attachment 133838

Anh thử câu lệnh này xem sao:

Workbooks("Database.xls").Close False

 

[viehoai]

Anh thử câu lệnh này xem sao:

Workbooks("Database.xls").Close False

Không được Phúc à. Trên trình excel file đó đã đóng nhưng trong cửa sổ VBE vẫn còn. Thực hiện code này báo lỗi

 

[Kiều Mạnh]

Không được Phúc à. Trên trình excel file đó đã đóng nhưng trong cửa sổ VBE vẫn còn. Thực hiện code này báo lỗi

Bạn thử cái này xem nha...code của GPE

Sub Workbooks_CloseAll()
    Dim Wh As Workbook
    For Each Wh In Workbooks
        If Wh.Name <> ThisWorkbook.Name Then
            Wh.Close False
        End If
    Next Wh
End Sub

 

[viehoai]

Bạn thử cái này xem nha...code của GPE

Sub Workbooks_CloseAll()
    Dim Wh As Workbook
    For Each Wh In Workbooks
        If Wh.Name <> ThisWorkbook.Name Then
            Wh.Close False
        End If
    Next Wh
End Sub

Code này không lỗi nhưng cũng không đóng được file như đã nói trên. Hơn nữa mình chỉ muốn đóng file database.xls thôi.

 

[ducdinh1987]

Bạn thử cái này xem nha...code của GPE

Sub Workbooks_CloseAll()
    Dim Wh As Workbook
    For Each Wh In Workbooks
        If Wh.Name <> ThisWorkbook.Name Then
            Wh.Close False
        End If
    Next Wh
End Sub

Bạn Cho mình hỏi 1 vấn đề được không? nếu muốn đóng những file có tên nào đó thì làm sao. ví dụ: hoa.xls, hung.xls,....

 

[ndu96081631]

Bạn Cho mình hỏi 1 vấn đề được không? nếu muốn đóng những file có tên nào đó thì làm sao. ví dụ: hoa.xls, hung.xls,....

Thì bài 2 đấy! Bạn chưa đọc sao?

 

[hoangnam2015]

Thì bài 2 đấy! Bạn chưa đọc sao?

Thêm và chỉnh sửa nó ra sao vậy 2 anh?

 

[ducdinh1987]

thử cái này xem:

Sub Closefile()
Dim FileName As String
FileName = "book1.xlsm" ' Tên file
With Workbooks(FileName)
.Close True
End With
End Sub