Macro para salvar Excel em TXT

Segue uma macro que pode ser útil, para salvar dados de Excel para TXT.

Uma aplicação é enviar informação para outro sistema, por exemplo.

O Excel tem nativamente uma opção de salvar como CSV, porém, o uso de macros permite uma flexibilidade enorme, além de todo o poder de processar a informação da forma que quisermos.

Imagine que a planilha seja como a abaixo.

Queremos salvar o arquivo com o nome indicado na célula C2, no mesmo diretório em que o arquivo Excel se encontra.

O código vai contar as linhas, jogar o conteúdo para a memória.

A seguir, vai criar o arquivo texto, escrever nele e fechar:

‘Inicializa funcao de manipulação de arquivos

Set fs = CreateObject(“Scripting.FileSystemObject”)

strPath = ThisWorkbook.Path & “\” & nomeArquivo

Set afs = fs.CreateTextFile(strPath, 1, 0)

‘Escreve conteúdo

For i = 1 To nl

    strAux = “”

    For j = 1 To UBound(edados, 2)

        strAux = strAux & edados(i, j) & “, “

    Next j

    ‘escreve no arquivo

    afs.writeline strAux

Next i

‘Fecha o arquivo

afs.Close

Set afs = Nothing

Set fs = Nothing

Resultado:

Vide arquivo para download: https://1drv.ms/x/s!Aumr1P3FaK7jnyUz0c1mYGji8DgR


Ideias Analíticas Avançadas

https://medium.com/ideias-anal%C3%ADticas-avan%C3%A7adas

Um mundo mais eficaz através do Analytics

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s