Página 1 de 1

Criando tabelas em arquivo txt com vba

Enviado: 18 Mai 2019 às 14:51
por Domingsp
Boa tarde, gostaria de criar arquivos txt para meus dados, então estou fazendo testes. Gostaria de criar uma tabela com alguns valores num arquivo txt usando macro.
Todos os resultados apareceriam só no txt, nada no Excel.
A macro abaixo escreve num arquivo txt o valor de uma simples equação, x=1+2, na coluna A. Mas gostaria de uma forma de fazer com que na coluna A saisse x=1+2, e na coluna B saisse y=3+2, por exemplo. Mais adiante precisarei ler os dados dessas colunas separadamente. gostaria de uma ajuda nisso tudo, obrigado.
Não consegui postar o arquivo txt para exemplo, mas o que sai nele é:
A
3
3
3
Código: Selecionar todos
Sub Testando()
   Dim sCaminho As String
   Dim iFF As Integer
       sCaminho = "C:\Users\iTunes\Documents\GRUPO\ArqTxt\Teste.txt"
      iFF = FreeFile
      Open sCaminho For Output As iFF
      Print #iFF, "A"
      x = 1 + 2
      For m = 1 To 3
         Print #iFF, x
      Next
      Close iFF
    Exit Sub
    
    Close iFF
End Sub

Re: Criando tabelas em arquivo txt com vba

Enviado: 20 Mai 2019 às 19:43
por mucascosta
Veja se é isso:

Sub Testando()
Dim sCaminho As String
Dim iFF As Integer
sCaminho = "C:\Users\iTunes\Documents\GRUPO\ArqTxt\Teste.txt"
iFF = FreeFile
Open sCaminho For Output As iFF
Print #iFF, " A - B"
x = 1 + 2
y = 3 + 2
For m = 1 To 3
Print #iFF, x, y
Next
Close iFF
Exit Sub

Close iFF
End Sub

Re: Criando tabelas em arquivo txt com vba

Enviado: 21 Mai 2019 às 21:48
por Domingsp
Obrigado, amigo. Seria isso mesmo. O resultado saiu:
A - B
3 5
3 5
3 5

O B deveria estar na direção da 2ª coluna, mas isso é um detalhe facil de corrigir no código.
Na verdade já resolvi de outra forma: gero um arquivo txt com os numeros todos juntos, sem nenhuma separação. Depois na leitura desse arquivo a macro faz a separação usando Left e Mid e destinando os dados para seus lugares.