PEGAR SOMENTE NUMEROS
Boa tarde a todos, estou com um proble que é o seguinte, tenho algumas planilhas feitas no excel e necessito importar para o banco de dados pelo vb, isso já funciona muito bem, o problema é que em determinadas células que só deveriam ter valor numérico algumas estão alem do numero letras, necessito apenas pegar os valores destas células incluindo a vÃrgula, alguem pode me ajudar nesse caso
Desde já muito obrigado
Desde já muito obrigado
Bom parece muito óbvio, mas depende muito do conteudo e para qual formato voce pretende converter,
Mas tem funçoes que fazem isto sem maiores problemas como a fuçao VAL() ou CCUR () que converte para valores monetarios.
Você pode fazer da seguinte forma:
Wstring = [Ô]O valor é 123,45 Reais[Ô]
Wvalorstr = [Ô][Ô]
for Wx = 1 to len(Wstring)
Wletra = mid(Wstring,Wx,1)
if instr([Ô]1234567890,[Ô],Wletra) <> 0 then
Wvalorstr = Wvalorstr & Wletra
endif
next Wx
msgbox(Wvalorstr)
Agora basta você tratar a variável Wvalorstr convertendo-a com VAL ou CCUR.
Wstring = [Ô]O valor é 123,45 Reais[Ô]
Wvalorstr = [Ô][Ô]
for Wx = 1 to len(Wstring)
Wletra = mid(Wstring,Wx,1)
if instr([Ô]1234567890,[Ô],Wletra) <> 0 then
Wvalorstr = Wvalorstr & Wletra
endif
next Wx
msgbox(Wvalorstr)
Agora basta você tratar a variável Wvalorstr convertendo-a com VAL ou CCUR.
Tópico encerrado , respostas não são mais permitidas