Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Criar Arquivo TXT

Ir para baixo

Criar Arquivo TXT Empty Criar Arquivo TXT

Mensagem por alexandrevba Sex maio 02, 2014 12:55 pm

Boa tarde!!

Como criar arquivos de TXT baseado no valor de cada célula da guia ativa.
Código:
Sub Criar_ArquivoTXT()
    Dim a, i As Long, e
    a = Range("a1").CurrentRegion.Columns("A:B").Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a, 1)
            .Item(a(i, 2)) = .Item(a(i, 2)) & vbCrLf & a(i, 1)
        Next
        For Each e In .keys
            Open ThisWorkbook.Path & "\" & e & ".txt" For Output As #1
                Print #1, Mid$(.Item(e), 3)
            Close #1
        Next
    End With
End Sub

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos