Olá Colegas de Vba!
por favor, solicito a ajuda de vocês, preciso aprender a extrair o valor da id de uma href.
Por exemplo:
<a href='/pms/RelatorioDisponivelViewServlet?id=222219'
target="_blank" id='222219'>XLS</a>
Em negrito a primeira opção de obtenção e em vermelho a segunda...
Minha ideia é obter este valor para poder partir para a segunda etapa do projeto
que é realizar o download do arquivo, mas será uma dúvida para os proxs capítulos rs
Eu ainda estou aprendendo a dominar a extração de dados via web, não sei exatamente o que é preciso para demonstrar melhor a minha demanda, procurei ser mais objetivo, mas se faltar algo, por favor, só me solicitar.
Desde já agradecido, abraços!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Obter o valor da id de uma href
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Obter o valor da id de uma href
Boa tarde colegas!
compartilhando o resultado final da questão.
Pesquisei bastante e encontrei algo que me ajudou bastante.
Fonte: http://stackoverflow.com/questions/2231 ... hin-td-tag
Não consegui fazer exatamente como eu pensava (localizar todos os ids e ficar com o maior 'mais recente'),
mas consegui identificar o mais pela posição fixa.
O código não esta 100%, pois falta concluir a parte que salva o arquivo.
Abraços!
compartilhando o resultado final da questão.
Pesquisei bastante e encontrei algo que me ajudou bastante.
Fonte: http://stackoverflow.com/questions/2231 ... hin-td-tag
Não consegui fazer exatamente como eu pensava (localizar todos os ids e ficar com o maior 'mais recente'),
mas consegui identificar o mais pela posição fixa.
O código não esta 100%, pois falta concluir a parte que salva o arquivo.
Código: Selecionar todos
Dim URL As String
Dim HTMLdoc As HTMLDocument
Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary")
Dim tRowID As String
Dim CaminhoLocal As String
Dim Auxiliar As Long
With IE
.Navigate URL
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set HTMLdoc = .Document
End With
With HTMLdoc
'encontra o inicio da tabela
Set tblSet = .getElementById("listagem")
'encontra a id mais recente
Set mTbl = tblSet.getElementsByTagName("a")(4)
'filtra o código id para formar o link
tTbl = VBA.Right(mTbl, 9)
End With
'cria o link
URL = "http://urapms.brasiltelecom.com.br/pms/RelatorioDisponivelViewServlet?" & tTbl
'gravando o arquivo - erro, aparece "concluido com sucesso, mas arquivo não consta na pasta
CaminhoLocal = "\\km3rede\aplcopel\Relacionamento_Clientes\ISOAcesso\Relatórios\Acompanhamento Diário\Diario\TESTE_WAGNER\ocupadas.xls"
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
MsgBox "Download efetuado com sucesso!"
Exit Sub
Err:
MsgBox "Erro no download do arquivo"