kauantesteteste Postado Julho 7, 2019 Denunciar Share Postado Julho 7, 2019 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> Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
kauantesteteste
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 para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.