Jump to content
Fórum Script Brasil
  • 0

web scraping não puxa informação


preciso que minha macro retorne o valor do cpf que esta em negrito porem não tem id e estou perdido 


segue codigo ultilizado

Sub analisecredito()
linha = Range("e1")
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://testetesete/prweb/PRServletCustom/c49zoH_kBJaBc9piWNVTKCw7it4ui0s4*/!STANDARD?"

Do While .Busy Or _
 .ReadyState <> 4
        While (Range("a" & linha) <> "")
               Range("e1") = linha
        While (Range("a" & linha) <> "")
               Range("e1") = linha
 Application.Wait (Now + TimeValue("00:00:5"))
.Document.all("Case_ID").innerText = Range("a" & linha)


Application.Wait (Now + TimeValue("00:00:05"))

Range("d" & linha).Document.all("ID_CLIENTE'").Value





DOCTYPE HTML PUBLIC "-//W3C//DTD HTML Transitional//EN"><META http-equiv="Content-Type" content="text/html; charset=utf-8">

<HTML class="ie ie7 yui-skin-sam yui-layout"><BODY id="yui-gen0" class="yui-layout"><DIV style="WIDTH: 1247px; DISPLAY: block; HEIGHT: 618px" id="layout-doc" class="yui-layout-doc" data-newgen="true"><DIV style="POSITION: absolute; WIDTH: 1247px; ZOOM: 1; HEIGHT: 538px; TOP: 80px; LEFT: 0px" id="l2" class="yui-layout-scroll yui-layout-unit yui-layout-unit-center"><DIV style="WIDTH: 1247px; ZOOM: 1; HEIGHT: 538px; TOP: 0px; LEFT: 0px" id="yui-gen2" class="yui-layout-wrap"><DIV style="WIDTH: 1247px; HEIGHT: 538px; TOP: 0px" id="laygen2" class="yui-layout-bd yui-layout-bd-noft yui-layout-bd-nohd"><DIV style="WIDTH: 100%; HEIGHT: 100%" id="PEGA_LU_C" scroll height="" width="" position="center"><DIV id="RULE_KEY" class="sectionDivStyle" uniqueID="SID1562523394848" expandRL="" BASE_REF="" NAME="BASE_REF" pyclassname="Data-Portal" objclass="Rule-HTML-Section" version="1" node_name="UserCenterPanel" node_type="MAIN_RULE"><TABLE id="" cellSpacing="0" cellPadding="0" width="100%" section_index="3"><TBODY><TR><TD style="TEXT-ALIGN: left; WIDTH: 100%; HEIGHT: 100%; VERTICAL-ALIGN: top" class="dataValueWrite"><DIV id="tabcontainer"><DIV><TABLE id="pega_tabTable" cellSpacing="0" cellPadding="0"><TBODY><TR id="tabs"><TD><TABLE cellSpacing="0" cellPadding="0" height="100%"><TBODY><TR><TD style="WHITE-SPACE: nowrap" id="tab1" class="coverTabMiddle" title="AD-281492930:ActionDriver" noWrap>

<LABEL style="PADDING-RIGHT: 3px" id="tabTitle" class="tabbedHeaderLabelStyle">09827129104</LABEL>


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing

  • Forum Statistics

    • Total Topics
    • Total Posts
  • Create New...