Tên tập tin có ký tự đặc biệt như blank, -, không lập được công thực trong VBA

[lid]

Tôi có một đoạn mã sau để tổng hợp dữ liệu từ các file khác vào file (("TONG-HOP.xls"):
Sub thop()
Windows("TONG-HOP.xls").Visible = False
NAMEFILE = ActiveWorkbook.Name
NAMESHEET = ActiveSheet.Name
Windows("TONG-HOP.xls").Visible = True
ActiveCell.FormulaR1C1 = "=[" + NAMEFILE + "]" + NAMESHEET + "!R12C3"
End Sub

Tuy nhiên nếu tên các file cần tổng hợp có chứa các ký tư như (Blank), -, thì công thức không thực hiện được, mong các bác chỉ giáo (nếu đổi tên tập tin thi phê quá vì có khoảng 200 tập tin cần tổng hợp)

 

[nvson]

Bạn viết sai dòng lệnh cuối cùng

Option Explicit
Sub thop()
Dim NAMEFILE, NAMESHEET
    
    Windows("Tong hop.xls").Activate
    NAMEFILE = ActiveWorkbook.Name
    NAMESHEET = ActiveSheet.Name
    
    Windows("book1").Activate
    ActiveCell.FormulaR1C1 = "=[B][COLOR=red]'[/COLOR][/B][" & NAMEFILE & "]" & NAMESHEET & "[COLOR=red][B]'[/B][/COLOR]!R12C3"
End Sub

Bạn chú ý dấu nháy đơn ' nhé