Jump to content
Fórum Script Brasil
  • 0

web scraping não puxa informação


Question

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
 DoEvents
 Loop
 
 
        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)

.Document.all("className=Oi-Administration-MKTNBA-Work-ActionDriver&flowType=StartActionDriver&HarnessVersion=1").Click


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>

</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></DIV></TD></TR></TBODY></TABLE></DIV></DIV></DIV></DIV></DIV></DIV></BODY></HTML>

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.

Guest
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
      148681
    • Total Posts
      644506
×
×
  • Create New...