Geração de arquivo excel

[VINICIUS RAMOS 0]

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é.

[Dennys Lopes 0]

O CPF esta como string ou numero ??

[VINICIUS RAMOS 0]

Está como string

[Dennys Lopes 0]

vixi ... ai complicou, nao contava com essa heehhehe ....fico meio vago .... acho que só vendo o projeto mesmo

[Claudio Neto 3]

Pode colocar o código dessa "transferência" ai para darmos uma olhada?

[VINICIUS RAMOS 0]

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