none
GRAVAR DADOS NO TXT via VBA RRS feed

  • Pergunta

  • meu codigo grava dados em um arquivo txt

    porem preciso delimitar a quantidade de caracter  , dei o valor de "Vnome"

    essa variavel tem de ter exatos 32 caracteres

    como o nome pode ter mais ou menos

    como eu determinaria essa varia para cortar um pedaço do nome ou acrescentar ESPAÇO 

    para que ao gravar , o proximo campo grave corretamente na mesma coluna.?

    como exemplo 

    se for incluir meu nome, ficaria assim

    CELIO MENDONCA, tem 14 caracteres incluindo o espaço, certo

        If Len(nome) > 32 Or Len(nome) < 32 Then

            nome = Format(nome, "CELIO MENDONCA                  ")

        End If

    ENTÃO, o CELIO MENDONCA seria acrescido após , 18 espaços em branco.

         

       arquivo = ThisWorkbook.Path & "\DADOS.txt"
       On Error Resume Next ' Para poder avançar caso os labels opcionai não são colocados
       Open arquivo For Append As #1
       Print #1, Produto; " "; Contrato; " "; nome; " "; fone; " "; CPF_CNPJ
       Close #1

    End Sub

    Celio Mendonça

    Anapolis/GO

    domingo, 4 de fevereiro de 2018 20:56

Todas as Respostas