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
Celio Mendonça
Anapolis/GO