Giúp lỗi không đóng được cửa sổ ApplicationAlert VBA (1 người xem)

[hung303a3]

Mong các anh chị giúp đỡ trường hợp viết code VBA đơn giản này của em, chả là em đang viết một file Macro đơn giản với mục đích convert file cvs sang file unicode text. Code lệnh như sau:


'vba code to convert excel to csv
Sub vba_code_to_convert_excel_to_csv()
Set wb = Workbooks.Open("C:\Users\Downloads\SaleReport.csv")
wb.SaveAs Filename:="C:\Users\Downloads\SaleReport.txt", FileFormat:=xlUnicodeText, CreateBackup:=False
Application.DisplayAlerts = True
Workbook.Close
Application.DisplayAlerts = False
End Sub


Vấn đề ở đây là sau khi save file xong dưới dạng txt rồi, excel hiện cửa sổ hỏi có replace file cũ không (mục đích của em là lưu đè file hàng ngày). Thì đến đoạn này macro không tự nhập lệnh "yes" được mà mình vẫn phải nhấp chuột bằng tay.
Em có tìm hiểu thì dòng lệnh "Application.DisplayAlerts = True" là dòng xử lý trả lời "yes" khi Excel hiện các thông báo. Nhưng không hiểu sao Code này lại không hoạt động, đã tìm hiểu mọi cách rồi mà vẫn không ra. Em đang dùng Excel 2013.
Cảm ơn anh chị nhé.