Página 1 de 1

Exportar conteúdo do Excel em txt através de macro

Enviado: 26 Set 2016 às 17:16
por 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.

Exportar conteúdo do Excel em txt através de macro

Enviado: 26 Set 2016 às 19:16
por 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

Exportar conteúdo do Excel em txt através de macro

Enviado: 27 Set 2016 às 09:35
por 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.

Re: Exportar conteúdo do Excel em txt através de macro

Enviado: 27 Set 2016 às 15:34
por 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