Criar Arquivo TXT
Página 1 de 1
Criar Arquivo TXT
Boa tarde!!
Como criar arquivos de TXT baseado no valor de cada célula da guia ativa.
Att
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Criar lista de arquivos e links
» Como criar Tabela Dinâmica 2 (VBA)
» Como criar Tabela Dinâmica (VBA)
» Codigo VBA
» Criar lista de arquivos e links
» Como criar Tabela Dinâmica 2 (VBA)
» Como criar Tabela Dinâmica (VBA)
» Codigo VBA
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|