Tem como exportar UMA linha por vez no Excel pra txt?

Question

Boa tarde!

Gostaria de saber se é possivel eu importar cada linha da minha tabela do Excel em um bloco de notas diferente.

Segue em anexo uma imagem como exemplo:

Dessa forma com CADA LINHA em um Note Pad DIFERENTE.

Desde já, agradeço,

Giovane Garcia.

Answer 1

Olá Giovane,

Essa tarefa é facilmente realizada por VBA. Você sabe inserir um código VBA na planilha? Se sim, então posso lhe mandar um código que faça isso.

Att.

Gustavo Sousa

Answer 2

Olá GiiRodrigues,

Para habilitar o uso de macros você precisa de duas configurações:

1. Habilitar o modo desenvolvedor nas opções:

2. Salvar a planilha para habilitar a utilização de macros salvando-a como .xlsm.

Para inserir o código que realizará a tarefa desejada, com a planilha onde as linhas estão inseridas ativa, pressione ALT+F11.

No editor de macros, ative a no painel esquerdo a planilha 1 (Plan1) e insira o seguinte código:

Sub EscreverLinhas()

  'Variaveis

  Dim FinalRow As Integer, FinalColumn As Integer

  Dim fso As Object

  Dim oFile As Object

  'Contar quantidade de linhas e colunas

  FinalColumn = Me.Cells(2, Me.Columns.Count).End(xlToLeft).Column

  FinalRow = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row

  Set fso = CreateObject("Scripting.FileSystemObject")

  'Laço para cada linha

  For i = 2 To FinalRow

    'Criacao do arquivo

    'Set oFile = fso.CreateTextFile(Environ("USERPROFILE") & "\Downloads" & i & ".txt", True, True)

    Set oFile = fso.CreateTextFile(Application.ActiveWorkbook.Path & "" & i & ".txt", True, True)

    'Laco de gravacao dos dados

    For Each Cell In Range("A" & i).Resize(, FinalColumn)

      oFile.Write (Cell.Value & vbTab)

    Next Cell

    'Finalizando arquivo

    oFile.Close

    Set oFile = Nothing

  Next i

  Set fso = Nothing

End Sub

Após isso é só executar a macro e conferir se os arquivos foram criados na mesma pasta onde a Pasta de Trabalho está salva.

Espero ter ajudado,

Att.

Gustavo Sousa

Answer 3

Gostaria de um tutorial se possivel para isso, faz um bom tempo que não mexo com VBA, mas eu gostaria sim da linha de comando pra isso por favor.