Lỗi ký tự đặc biệt.

[phuc12345]

Em có 2 file như đính kèm. dùng để kết xuất dữ liệu từ excell sang word. code em vẫn chạy bình thường. nhưng bây giờ trong ô b10 em sửa lại thành "Công ty CP may và in 27/7", tức là em thêm ký tự đặc biệt là dấu gạch chéo "/" vào giữa 2 số 7 thì code lại báo lỗi. Các anh chi xem giúp chỉnh code giúp em để nó nhận được ký tự đặc biệt này với a. Em cám ơn a.

 

[Vô danh Tiểu tốt]

template.SaveAs Filename := "Thư mục này nọ\Công ty CP may và in 27/7"

Không đặt dấu "/" cho tên được nhé. Có thể thay thế "/" thành "-".

Dim pathx
pathx = ThisWorkbook.Path & Application.PathSeparator & Replace(Sheet1.Cells(i + 7, 2).Value, "/", "-")
template.SaveAs Filename:=pathx

Còn nhiều ký tự lạ có thể gây lỗi, bạn cứ theo cách này để tự tìm đường giải quyết.