Como criar varios excel arquivos em txt

Question

Olá tudo bem? Estou querendo saber como faço para criar cada linha do excel em um titulo e arquivo novo em txt, seria basicamente como no print:

http://prntscr.com/g8gyf2

tenho um trabalho para fazer e preciso criar muitos arquivos txt de cada linha excel

Answer 1

Olá Marcus,

A melhor maneira de realizar essa tarefa é com macro.

Primeiramente, salve sua planilha com a extensão .xlsm. Após isso habilite o modo desenvolvedor e pressione ALT+F11.

Na tela de programação, abra a planilha EstaPasta_de_Trabalho e insira o seguinte código:

Sub SaveTXT()

  Dim cell As Object

  Dim ws As Worksheet

  Dim Selected As Range

  Application.DisplayAlerts = False

  Application.ScreenUpdating = False

  Set Selected = Selection

  With ThisWorkbook

    Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))

    ws.Name = "Temp"

    For Each cell In Selected

      ThisWorkbook.SaveCopyAs (cell.Text & ".txt")

    Next cell

    ws.Delete

  End With

  Application.DisplayAlerts = True

  Application.ScreenUpdating = True

End Sub

Para utilizar a macro, selecione o range com a lista de nomes pressione ALT+F8 e execute a macro listada.

Nota: Tome cuidado com os caracteres que estarão nas células, caso haja algum inválido, a macro irá acusar um erro. Verifique também, caso aconteça um erro, se existe alguma aba como o nome Temp, se sim, a mesma deverá ser excluída para se executar a macro novamente.

Att.

Gustavo Sousa

Answer 2

Olá Marcus!

Qual seria o conteúdo destes txt? Pois pelo que entendi você quer criar o nome do arquivo com o nome que está na célula.

Isso é possível fazer, mas somente com vba. Um exemplo de código:

Sub Gerar_Txt()

Dim iArq As Long

Dim Rng As Excel.Range, cell As Excel.Range

Dim sPath As String

iArq = FreeFile

Set Rng = Range("A1:A2") 'Definição do intervalo com os nomes

sPath = "C:\Users\usuário\Documents" 'Definição do caminho onde serão salvos o txt

For Each cell In Rng

Open sPath & cell.Value & ".txt" For Output As iArq

Print #iArq, _

"Conteúdo do arquivo aqui!!"

Close #iArq

Next cell

End Sub

Abraços!

Answer 3

Muito obrigado mesmo =D, funcionou certinho =D

Answer 4

Muito obrigado mesmo =D, funcionou certinho =D