Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Obter o valor da id de uma href

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Obter o valor da id de uma href

Mensagem por Wagner.cwb »

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>&nbsp;

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Obter o valor da id de uma href

Mensagem por Wagner.cwb »

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.

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"
Abraços!


Responder