Boa tarde, Fiz um botão para gerar um arquivo TXT com o número do CPF, Nome e data de nascimento, porém os CPF’s q começam com 0, aparece com somente 10 dígitos pq o 0 some. Como o campo do CPF tem que ser 11 caracteres, ao importar o arquivo para o site que preciso da erro no layout.
Alguém poderia ajudar como faço para gerar o arquivo com 11 caracteres neste campo?
Obrigado.
No caso você criou uma macro ? No caso você deveria colocar como texto a célula e não como número…se for na macro tem que identificar como String…
experimente mudar!
Manda um exemplar
Isso, esqueci de colocar q fiz via macro e Basic.
Segue a macro:
Sub gsCriarArquivoTxt()
On Error GoTo TratarErro
Dim lsCaminho As String
Dim llArquivo As Long
Dim lLinha As String
Dim lContador As Long
Dim iTotalLinhas As Long
'Nome do arquivo txt
lsCaminho = InputBox("Caminho e nome do arquivo:", "Caminho do arquivo...", "C:\ArquivoTexto.txt")
If Dir(lsCaminho) = "" Then
llArquivo = FreeFile
Open lsCaminho For Output As #llArquivo
iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
lContador = 5
While lContador <= iTotalLinhas
'Imprimir os dados no arquivo
Print #llArquivo, Cells(lContador, 1) & ";" & _
Cells(lContador, 2) & ";" & _
Cells(lContador, 3) & ";" & _
Cells(lContador, 4)
lContador = lContador + 1
Wend
MsgBox "Arquivo salvo em: " & lsCaminho
Close #llArquivo
Else
MsgBox "Arquivo já existe!"
End If
Sair:
Exit Sub
TratarErro:
MsgBox "Houve um erro na geração do arquivo " & Err.Description
GoTo Sair
End sub
Quando gera o arquivo, a pessoa q tem o CPF com 0 na frente, fica sem o 0.
Exemplo:
CPF PIS Nome da Pessoa Data de Nascimento
12345678910;44444444444;NOME DA PESSOA 1;27/12/1979
1987654321;55555555555;NOME DA PESSOA 2;22/01/2000
Ola @andersont.silva , já tentou seguir a orientação do @Squarcini e SALVAR COMO a planilha diretamente em CVS.
Bom dia @schiavinatto, salvando o arquivo em CVS é possível determinar o nro de caracteres?
Pergunto pq vi agora e o site que devo enviar a planilha além do CPF ter 11 caracteres, o campo do nome da pessoa tbm tem um limite. São 70 caracteres.
Obrigado.
@andersont.silva, creio que teria de conferir antes da exportação.
Tem um exemplo do arquivo para mostrar… como estão os dados?
Exemplo do Arquivo que deveria ser:
12345678910;11223344556;NOME DA PESSOA 1;01/05/1980
01987654321;65544332211;NOME DA PESSOA 2;14/12/2000
Exemplo do Arquivo que gerou
12345678910;11223344556;NOME DA PESSOA 1;01/05/1980
1987654321;65544332211;NOME DA PESSOA 2;14/12/2000
@andersont.silva então isso seria uma “trimassão”…estive analisando aqui a macro que me envio, e não consegui roda-la e também ainda não consegui chegar em uma macro boa definitiva.
A solução mais simples a principio seria você transformar a coluna do CPF como texto ou usar o " ’ " (apóstrofo) no inicio (exemplo: '012345678911) assim ele mantém o zero a esquerda.
depois desse procedimento salve a planilha como CSV. , em seguida renomeia para Txt… acredito que isso deva lhe ajudar!
Ainda não tenho um conhecimento pleno de Macros para o Libreoffice Basic e a curva de aprendizagem é um pouco maior visto que conteúdos para estudos são maiores para o Office Excel.
Continuarei aqui analisando…se souber de algo melhor coloco aqui.
At. te
Talvez você consegue fazer tratamentos melhores no Power Query do PowerBI…mas seria talvez interessante se souber criar no Libreoffice Base um pequeno formúlario…assim você determina o campo do CPF para receber no máximo 11 caracteres…depois puxa para o Calc…e transforma em txt…