Verificação e análise de banco de dados

[MJKowalski]

Bom dia pessoal,

Sou extremamente novato em termos de programação e estou precisando de ajuda em um código VBA para poder mapear dados retirados de um códigos SQL, que recebo através de planilha Excel.

 

Exmplo de código SQL:

SELECT * from SolicitacaoMatriculaProtocolo where CodAluno ='00123' and Periodo ='2010' selecT * from Curriculo where CodCurso='32100' and Periodo ='2010' order by serie

Tenho em mãos uma macro que separa apenas os números encontrados no código SQL, cofnorme segue:

'<alteracao>'Esta função tem por objetivo retirar números de células que contenham conteúdos mistos de números e texto'sem a possibilidade de serem colunadosPublic Function lfRetiraNumeros(ByVal vValor As String) As String'Atualiza o cálculo automaticamente'Application.Volatile'Conta a quantidade de caracteresDim vQtdeCaract As LongDim vControle As BooleanvQtdeCaract = Len(vValor)vControle = False'Para cada caractere identifica se é número ou textoFor i = 1 To vQtdeCaract'Se for número adiciona no retorno da funçãoIf IsNumeric(Mid(vValor, i, 1)) ThenIf vControle = True And lfRetiraNumeros <> vbNullString ThenlfRetiraNumeros = lfRetiraNumeros + " "End IfvControle = FalselfRetiraNumeros = lfRetiraNumeros & Mid(vValor, i, 1)ElsevControle = TrueEnd IfNext'Substitui espaços em branco por / e tira espaços em branco no final do retorno da funçãolfRetiraNumeros = Replace(Trim(lfRetiraNumeros), " ", "/")End Function'</alteracao>

........FIM........

 

E obtenho o seguinte resultado: 00123/2010/32100/2010

 

Preciso concatenar no resultado do macro o que significa o código retirado, por exemplo:

CodAluno=00123

Agradeço desde já a atenção!