Este fórum está sendo desativado

[robertguedes]

Olá meus amigos, tudo bem?
Gostaria de saber se tem um jeito de exportar o conteúdo de um planilha para .txt parametrizado.
Eu estou já a duas semanas pensando em uma solução para exportar e não consigo.
Aqui na empresa temos um sistema chamado Domínio e ele só aceita a importação de RPA através de arquivo texto. Fazemos dois serviços porque lançamos os dados paras as planilhas e depois lançamos para o sistema, se tivesse como exportar para txt de forma que as colunas ficassem concatenadas e parametrizadas de acordo com o sistema, ganharíamos muito tempo.

Desde já agradeço.

[gfranco]

Boa tarde robertguedes
Sugiro postar um modelo da sua planilha ( com dados fictícios mas mantendo a estrutura) e as especificações de saída do TXT para que eu ou algum membro do fórum possamos tentar ajudar.
At
gfranco

[robertguedes]

Ok, obrigado.

Então seria a planilha que está anexada. Queria que gerasse o arquivo a partir do dados abaixo da linha de título. e que selecionasse automaticamente o conteúdo.


Desde já agradeço a atenção de todos.

[alexandrevba]

Boa tarde!!

tente algo assim..

Código: Selecionar todos

Sub Tente()
 Dim cell As Range
Dim FF As Long
Dim Counter As Long
    
    For Each cell In Range("U2", Range("U" & Rows.Count).End(xlUp))
        If cell.Value <> "" Then
            FF = FreeFile()
            'Favor ajustar o nome e caminho do arquivo
            Open ThisWorkbook.Path & "\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF
            Print #FF, cell.Text
            Close #FF
            Counter = Counter + 1
        End If
    Next cell
    
End Sub

Obs: Não testado
Att