Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Amigos,Estou gerando um relatório automatizado que gera arquivos vindos do SQL SERVER. Na hora de jogar o cpf para o excel através do VB, está aparecendo um número hexadecimal. Como posso tratar o cpf para que este seja jogado como um caracter de 14 posições.até.
Está como string
vixi ... ai complicou, nao contava com essa heehhehe ....fico meio vago .... acho que só vendo o projeto mesmo
Pode colocar o código dessa "transferência" ai para darmos uma olhada?
For i = 1 To rs.RecordCount K = 1 For Each f In rs.Fields If IsDate(rs.Fields(f.Name)) Then oSheet.Cells(i + 4, K) = IIf(IsNull(rs.Fields(f.Name)), "", Format(rs.Fields(f.Name))) coltemp = glbRetornaLetraColunaExcel(K) Set oRng = oSheet.Range(coltemp & i + 4) oRng.NumberFormat = "m/d/yyyy" oRng.HorizontalAlignment = xlHAlignCenter ElseIf Len(rs.Fields(f.Name)) = 14 Then '(Está funcionando, porém, esta função é utilizada em várias ocasiões, ou seja, se um outro analista definir que na procedure dele o campo cpf possui 15 posições, continuará ocorrendo o erro) oSheet.Cells(i + 4, K) = IIf(IsNull(rs.Fields(f.Name)), "", Format(rs.Fields(f.Name))) coltemp = glbRetornaLetraColunaExcel(K) Set oRng = oSheet.Range(coltemp & i + 4) oRng.NumberFormat = "00000000000000" Else oSheet.Cells(i + 4, K) = IIf(IsNull(rs.Fields(f.Name)), "", Format(rs.Fields(f.Name))) End If K = K + 1 Next rs.MoveNext
O CPF esta como string ou numero ??