Dữ liệu XML từ một ô Excel sang tệp XML mới [đã đóng]

Trong A1, A2, A3 ... A16000 Tôi có toàn bộ bối cảnh của một XML trong một ô.

Ví dụ: Toàn bộ XML cho một hóa đơn là A1, hóa đơn tiếp theo bằng A2, v.v.

Làm cách nào tôi có thể lưu ngữ cảnh của từng ô, vào các tệp XML riêng biệt?

Tôi đã cố trích xuất dữ liệu liên quan trực tiếp từ ô bằng cách sử dụng "filterxml", nhưng tôi gặp rắc rối khi inovice chứa nhiều dòng mục.

Giả sử toàn bộ XML thực sự là một định dạng XML hợp lệ và bạn chỉ cần xuất từng ô dưới dạng tệp riêng của mình, bạn có thể sử dụng VBA sau:

Sub ExportCellsToXMLFiles()
    On Error GoTo err:
    Dim OutputFolder: OutputFolder = "D:\Test\XML\" 'Specify a valid dir to output to - make sure you include the trailing slash.
    Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim objFile
    Dim Count: Count = 1 'Row number to start on
    Do
        Set objFile = objFSO.CreateTextFile(OutputFolder & "Invoice_" & Count & ".xml", False, True) ' You can change the file names if needed here
        objFile.Write (Cells(Count, 1).Value)
        objFile.Close
        Count = Count + 1
    Loop Until IsEmpty(Cells(Count, 1).Value)

err:
    Set objFile = Nothing
    Set objFSO = Nothing
End Sub

EDIT: Tôi nghĩ rằng một số chương trình nhất định có thể không diễn giải chính xác vì họ mong đợi bộ ký tự UTF-8. Hãy thử mã này thay thế:

Sub ExportCellsToXMLFiles()
    On Error GoTo err:
    Dim OutputFolder: OutputFolder = "D:\Test\XML\"
    Dim fsT As Object
    Dim Count: Count = 1
    Do
        Set fsT = CreateObject("ADODB.Stream")
        fsT.Type = 2
        fsT.Charset = "utf-8"
        fsT.Open
        fsT.WriteText (Cells(Count, 1).Value)
        fsT.SaveToFile OutputFolder & "Invoice_" & Count & ".xml", 2
        Count = Count + 1
    Loop Until IsEmpty(Cells(Count, 1).Value)

err:
    Set fsT = Nothing
End Sub