Hỏi về lỗi lệnh VBA

[kiendaide1]

Em có dong code VBA tách các sheet trong 1 file excel thành nhiều file excel nó bị lỗi phiền các cao nhân sửa hộ em với ạ
Sub Splitbook()
'Update20190816
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
nó bao lỗi như vậy

 

[Phuocam]

Em có dong code VBA tách các sheet trong 1 file excel thành nhiều file excel nó bị lỗi phiền các cao nhân sửa hộ em với ạ

Thử chạy code này

Sub Splitbook()

'Update20210715
Dim xWs As Worksheet
Dim xPath As String
xPath = ThisWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
        xWs.Copy
        ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
        ActiveWorkbook.Close False
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

..
.

 

[truongvu317]

Đoán là file đang có đường dẫn là tiếng việt.

 

[kiendaide1]

Đoán là file đang có đường dẫn là tiếng việt.

Da vâng em cam ơn ạ