Criar Arquivo TXT

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criar Arquivo TXT

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum