Veja se a rotina abaixo ajuda, faça os ajustes :

Fonte: https://stackoverflow.com/questions/319 ... delimiters
Parsing txt file into Excel with multiple delimiters

Sub ParseData()
    Dim FileSpec As String, TextLine As String
    Dim RowNumber As Long
    folder = "C:TestFoldertextfiles"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folder)
    RowNumber = 1
    Close #1

    For Each file In folder.Files
        FileSpec = folder & "" & file.Name
        Open FileSpec For Input As #1
        Do While Not EOF(1)
            Line Input #1, TextLine
            TextLine = Replace(TextLine, "+", "-")
            If InStr(TextLine, "-") = 0 Then
                Cells(RowNumber, 1) = TextLine
            Else
                ary = Split(TextLine, "-")
                ccol = 1
                For Each a In ary
                    Cells(RowNumber, ccol) = a
                    ccol = ccol + 1
                Next a
            End If
            RowNumber = RowNumber + 1
        Loop
        Close #1
    Next file
End Sub

[]s

Voce tambem pode optar pelo "SPLIT", segue dicas de funcções :

How to Split a String with Multiple Delimiters in VBA
https://www.experts-exchange.com/articl ... n-VBA.html

[]s

Muito bom os links Mauro.
Como adicional http://www.cpearson.com/excel/splitondelimiters.aspx

Obrigado a todos pela atenção.

Eu observei todos os links mencionados, mas como eu ainda estou aprendendo sobre vba então ficou meio confuso os códigos dos links.

Então eu criei um outro procedimento que deleta os sinais, porém o problema agora é apenas separar as informações por colunas.

os códigos importam e removem os sinais, porém as informações não são separadas.

Em anexo, seguem os arquivos.

muito obrigado pela atenção de todos.

Não consigo descompactar o arquivo, da msg de corrompido.

Estou enviando no formato zip.

JNEXCEL, seu txt modelo não possui alguns campos conforme seu post inicial (tipo Unidade e Ano),
esses arquivos variam em conteúdo em relação a "campos"?

Experimente e comente

Respondendo a sua pergunta anterior.

Isso, exatamente.

as informações são variadas, ou seja, podem estar entre <cadastro><produto>mesa</produto></cadastro> como também em <cadastro><produto>mesa</produto><unidade>UN</unidade></cadastro>

Eu tenho o código para remover todos os sinais: </> independente de quantas vezes ele aparece na planilha.

porém eu agora não estou conseguindo separar as informações por colunas, antes era separar e remover os sinais, agora é apenas separa por colunas.

Com relação ao seu novo arquivo.

Eu vou baixar e fazer um teste, muito obrigado

Reinaldo, ficou perfeito. Muito obrigado pela ajuda

Agradeço também ao Mauro Coutinho, pela atenção e colaboração.

Muito obrigado a todos.