lỗi khi import XML (1 người xem)

[phungvinhquang]

Mọi người cho hỏi! Tôi đang gặp một vướng mắc khi viết code nhập dữ liệu file XML

Trong file co doan code:

''''''''''''''' lấy đường dẫn đầy đủ của file XML
myURL = whatFolder & "\" & listfile(i)

''''''''''''''' import file xml vao excel
ActiveWorkbook.XmlImport URL:=myURL, ImportMap:=Nothing, Overwrite:=True, Destination:=Sheets("data_import").Range("$A$1")
' một
' vài
' thao
' tác
' xử
' lý
' data
' vua
' import
'''''''''''''''' de xoa du lieu import lần trước
tbl_name = Worksheets("data_import").ListObjects.Item(1).Name
Range(tbl_name & "[#All]").Clear

Vấn đề là từ năm 2015 file vẫn hoạt động thường xuyên. Hiện tại nó hoạt động không ổn định (lúc được lúc treo máy mà không tìm ra được nguyên nhân cụ thể).

Hôm nay tui mò trong file thì phát hiện điều này (xem hình trong file dinh kem). Cụ thể là tui chọn DATA > REFRESH ALL thi xuất hiện thông báo lỗi XML import error. Theo thông tin mà thông báo lỗi này cung cấp thì dường như có liện quan đến những data tui đã import từ năm 2015

TUI MUỐN TÌM VÀ XÓA LỖI NÀY NHƯNG KHÔNG ĐƯỢC.

ai biết chỉ giúp các khắc phục.
tui gửi kèm file lỗi đeex các bạn xem giúp.

Trân trọng!