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

Interação VBA com Internet Explorer (dúvidas)

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por webmaster »

Colega,

Depois que realiza uma interação, o ciclo reinicia. No caso do seu código, depois do:

Código: Selecionar todos

ie.document.getElementById("btnOk").Click
Vai mais um:

Código: Selecionar todos

Do While ie.busy
Loop
E assim por diante. Faça o teste e veja se funciona.

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.


mirculio
Colaborador
Colaborador
Mensagens: 33
Registrado em: Qua Jun 29, 2011 11:24 am

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por mirculio »

Re: Interação VBA com Internet Explorer (dúvidas)
por webmaster » Ter Jul 12, 2011 3:03 pm

mirculio,

Quanto ao READYSTATE_COMPLETE, de fato, alguns sites demorar para terminar de responder, o que não significa que já não dê para ler seu conteúdo. Tente o seguinte e veja se funciona:


Código: Selecionar tudo
While objIE.Busy
' faz algo
Wend

Outra alternativa é implementar um atraso no código:

http://www.tomasvasquez.com.br/blog/mic ... era-no-vba

Resolvendo isso, continuamos.


Bom dia Tomaz, o problema com o carregamento funcionou com o while mensionado.
Agora preciso da sua ajuda com relação aos frames, as ações que mando executar so recaem sobre 1 frame que acredito ser o principal. Já pesquisei o código da pagina em busca de alguma nomenclatura para as demais áreas da página e não as encontro.
Um detalhe é que o código é javascript, não sei se pode haver alguma diferença com relação a isso.

Aguardo o seu retorno!!!

Obrigado


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por webmaster »

mirculio,

O resultado de uma página sempre será código HTML com Javascript e CSS, sem excessão. Não temos domínio algum sobre a linguagem que roda no servidor, e para nosso caso, não importa.

Quanto aos frames, já discutimos bastante sobre isso aqui. Veja se esta mensagem ajuda:

http://tomasvasquez.com.br/forum/viewto ... ames#p4314

Abraços


trp
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Jul 19, 2011 2:10 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por trp »

Tomás

Bom dia

Obrigado pela resposta mas infelizmente qualquer comando que eu tente vem a mensagem "A variável do objeto ou variavel do bloco "with" não foi definida.

Poderia me ajudar a mudar a opção do box de homologação NFe para homologação CTe
***********código fonte *************
Consulta de documentos</p>
<select name="ddlAplication" onchange="javascript:setTimeout('__doPostBack(\'ddlAplication\',\'\')', 0)" language="javascript" id="ddlAplication" style="font-weight:normal;width:100%;">
<option selected="selected" value="7">Homologa&#231;&#227;o NFe</option>
<option value="9">Homologa&#231;&#227;o CTe</option>

</select></div>
******************
E apertar o botão consulta.

************código fonte ************
</div>
<div id="PanelBtn" style="width:100%;text-align:center;">
<input type="submit" name="Limpar" value="" id="Limpar" class="limpar" />
<input type="submit" name="searchButton" value="" id="searchButton" class="consultar" />

</div>

Mais uma vez agradeço a atenção

webmaster escreveu:Colega,

Depois que realiza uma interação, o ciclo reinicia. No caso do seu código, depois do:

Código: Selecionar todos

ie.document.getElementById("btnOk").Click
Vai mais um:

Código: Selecionar todos

Do While ie.busy
Loop
E assim por diante. Faça o teste e veja se funciona.

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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por webmaster »

mirculio,

Só vendo o código todo para ter certeza do que pode ser.

Abraços


trp
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Jul 19, 2011 2:10 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por trp »

Tomás

Bom dia

Obrigado pela resposta mas infelizmente qualquer comando que eu tente vem a mensagem "A variável do objeto ou variavel do bloco "with" não foi definida.

Poderia me ajudar a mudar a opção do box de homologação NFe para homologação CTe
E apertar o botão consulta.

Mais uma vez agradeço a atenção

att,

trp.

segue o código e obrigado pela ajuda!!!

Código: Selecionar todos

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" >
<head><title>
	Untitled Page
</title><meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR"><meta content="C#" name="CODE_LANGUAGE"><meta content="JavaScript" name="vs_defaultClientScript"><meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
    <script language="javascript" src="../Resources/Scripts/functions.js" type="text/javascript" charset="iso-8859-1"></script>
		<script type="text/javascript">
		  function KeyPress(key)
            {
                if (key == 13)
                {
                    KeyDownHandler(searchButton)
                }
            }   
                            
            function KeyDownHandler(btn)
		    {
			    if (event.keyCode == 13)
			    {
			        event.returnValue=false;
	    			event.cancel = true;
		    		btn.click();
    			}
	    	}
		</script>
	<style type="text/css">    
        html,body,form{height:100%}
    </style>
    <link href="../Resources/Styles/main.css" rel="stylesheet" type="text/css" /></head>
<body style="height:100%">
    <form name="form1" method="post" action="left.aspx" language="javascript" onkeypress="javascript:return WebForm_FireDefaultButton(event, 'searchButton')" id="form1">
<input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" />
<input type="hidden" name="__LASTFOCUS" id="__LASTFOCUS" value="" />
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPDwULLTE2MTY1MDIyOTIPZBYGAgMPZBYCAgEPEGQQFQIRSG9tb2xvZ2HDp8OjbyBORmURSG9tb2xvZ2HDp8OjbyBDVGUVAgE3ATkUKwMCZ2cWAWZkAgUPFgIeBFRleHQFWDxzY3JpcHQ+d2luZG93LnRvcC5mcmFtZXNbJ0dSSUQnXS5sb2NhdGlvbi5ocmVmPSdTZWFyY2hSZXN1bHQuYXNweD9maXJzdD10cnVlJzs8L3NjcmlwdD5kAgYPFgIfAGVkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYHBQlJREVfU0VSSUUFB0lERV9OTkYFDUlERV9ERU1JX0ZST00FDUlERV9ERU1JX05PT1AFCUVNSVRfQ05QSgUJREVTVF9DTlBKBQhERVNUX0NQRsij3upLGSfbLXBGWDLhmt7AreRI" />
<script type="text/javascript"> 
<!--
var theForm = document.forms['form1'];
if (!theForm) {
    theForm = document.form1;
}
function __doPostBack(eventTarget, eventArgument) {
    if (!theForm.onsubmit || (theForm.onsubmit() != false)) {
        theForm.__EVENTTARGET.value = eventTarget;
        theForm.__EVENTARGUMENT.value = eventArgument;
        theForm.submit();
    }
}
// -->
</script>
 <script src="/coldweb/WebResource.axd?d=Z-w3Wj8to_R8lP3BOH2Jlg2&t=633953478084128213" type="text/javascript"></script>
 <style type="text/css"> 
	.IDE_SERIE0{}
	.IDE_NNF0{}
	.IDE_DEMI_FROM0{}
	.IDE_DEMI_NOOP0{}
	.EMIT_CNPJ0{}
	.DEST_CNPJ0{}
	.DEST_CPF0{}
</style>
 <script src="/coldweb/WebResource.axd?d=j8F7HXVwteGpI5YfaOblZSSdHH3Xm_XCFAiU90Yky9H9uYkqG3mz9MWEyJA6wzvgZdRSqZPUWlJ47ULaMB223Ajgx3A8tVrkSHBcwE5esqNhPkMQ2gjFlCN4_K7wpVM40&t=632969577840000000" type="text/javascript"></script><script type="text/javascript"> 
<!--
var ig_pi_imageUrl='/coldweb/WebResource.axd?d=j8F7HXVwteGpI5YfaOblZfp-PsZXt_JLKUxPN8f00epHZyAaDWtfMULvYZb4jv-gc2maxBn6TmZu6JSAerAGC1rk2_UvmqVTaWdy1kFF3Mhr1cEnkY8bZR6BP8H0hlzY0&t=632969574340000000';try{(new Image()).src=ig_pi_imageUrl;}catch(ex){}
// -->
</script>
<script src="/coldweb/WebResource.axd?d=j8F7HXVwteGpI5YfaOblZfp-PsZXt_JLKUxPN8f00epHZyAaDWtfMULvYZb4jv-gIGTzNLKxo7vmYBiSn5W1kxYhhN4-UMavlLntI0RnEDU1&t=632969574340000000" type="text/javascript"></script>
<script src="/coldweb/WebResource.axd?d=mPJruBUkZcYyycPKKuZE8Q2&t=633953478084128213" type="text/javascript"></script>
    <div id="content-left">
    <div id="close-bar">
                                            <img id="imgclose" src="../Resources/images/close-button-vertical.jpg" style="cursor: hand; top: 47%; position: relative" onclick="updateSearch()" />
                </div>
     <div id="in">     
                    <div id="header">
                        <p>
                            Consulta de documentos</p>
                                                            <select name="ddlAplication" onchange="javascript:setTimeout('__doPostBack(\'ddlAplication\',\'\')', 0)" language="javascript" id="ddlAplication" style="font-weight:normal;width:100%;">
	<option selected="selected" value="7">Homologa&#231;&#227;o NFe</option>
	<option value="9">Homologa&#231;&#227;o CTe</option>
 
</select></div>
                                             <div id="search-form">
                         <!-- inicio do formulario do lado esquerdo da tela -->
                        <div id="cbStatusDiv" style="text-align:left">
                        <p style="margin-bottom:5px">
                         <span id="Label1" class="fieldlabel">Status Documento</span>
                         </p>
                         <select name="ddlStatusDoc" id="ddlStatusDoc" style="font-size:8pt;font-weight:normal;width:80%;">
	<option selected="selected" value="0">Todos</option>
	<option value="100">Autorizados</option>
	<option value="101">Cancelados</option>
 </select></div>
                                                                       <table id="searchTable" border="0" style="height:1%;width:100%;">
	<tr>
		<td><span class="fieldlabel">Série</span></td>
	</tr><tr>
		<td>
 <input type="hidden" name="IDE_SERIE" id="IDE_SERIE" value="" />
 
<input type="hidden" name="IDE_SERIE_p" id="IDE_SERIE_p" />
<input type="text" style="width:200px;text-align:Left;" class="textbox" id="igtxtIDE_SERIE" maxlength="8" />
</td>
	</tr><tr>
		<td><span class="fieldlabel">Número da Nota</span></td>
	</tr><tr>
		<td>
 <input type="hidden" name="IDE_NNF" id="IDE_NNF" value="" />
 
<input type="hidden" name="IDE_NNF_p" id="IDE_NNF_p" />
<input type="text" style="width:200px;" class="textbox" id="igtxtIDE_NNF" />
</td>
	</tr><tr>
		<td><span class="fieldlabel">Data de Emissão</span></td>
	</tr><tr>
		<td><table id="IDE_DEMI" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse;">
			<tr>
				<td>
 <input type="hidden" name="IDE_DEMI_FROM" id="IDE_DEMI_FROM" value="18/07/2011" />
 <input type="hidden" name="IDE_DEMI_FROM_p" id="IDE_DEMI_FROM_p" />
<input type="text" style="width:60px;" class="textbox" value="18/07/2011" id="igtxtIDE_DEMI_FROM" />
</td><td align="center" style="width:10px;"><span class="fieldlabel" style="width:10px;">&nbsp;até&nbsp;</span></td>
			</tr><tr>
				<td>
 <input type="hidden" name="IDE_DEMI_NOOP" id="IDE_DEMI_NOOP" value="25/07/2011" />
 <input type="hidden" name="IDE_DEMI_NOOP_p" id="IDE_DEMI_NOOP_p" />
<input type="text" style="width:60px;" class="textbox" value="25/07/2011" id="igtxtIDE_DEMI_NOOP" />
</td>
			</tr>
		</table></td>
	</tr><tr>
		<td><span class="fieldlabel">CNPJ do Emitente</span></td>
	</tr><tr>
		<td>
 <input type="hidden" name="EMIT_CNPJ" id="EMIT_CNPJ" value="" />
 <input type="hidden" name="EMIT_CNPJ_p" id="EMIT_CNPJ_p" />
<input type="text" style="width:200px;" class="textbox" id="igtxtEMIT_CNPJ" />
</td>
	</tr><tr>
		<td><span class="fieldlabel">CNPJ do Destinatário</span></td>
	</tr><tr>
		<td>
 <input type="hidden" name="DEST_CNPJ" id="DEST_CNPJ" value="" />
 <input type="hidden" name="DEST_CNPJ_p" id="DEST_CNPJ_p" />
<input type="text" style="width:200px;" class="textbox" id="igtxtDEST_CNPJ" />
</td>
	</tr><tr>
		<td><span class="fieldlabel">CPF do Destinatário</span></td>
	</tr><tr>
		<td>
 <input type="hidden" name="DEST_CPF" id="DEST_CPF" value="" />
 <input type="hidden" name="DEST_CPF_p" id="DEST_CPF_p" />
<input type="text" style="width:200px;" class="textbox" id="igtxtDEST_CPF" />
</td>
	</tr>
</table>                            
                        </div>
                        <div id="PanelBtn" style="width:100%;text-align:center;">
	                            <input type="submit" name="Limpar" value="" id="Limpar" class="limpar" />
						    <input type="submit" name="searchButton" value="" id="searchButton" class="consultar" />
	
</div>						
                                           <div style="clear: both">
                        <a href="http://nddigital.com.br" target="_blank"><img src="../Resources/images/ndd-left-logo_powered.gif" id="logo" class="logo" /></a>
                    </div>                    
                </div>    
    </div>
    <script type="text/javascript"> 
<!--
WebForm_AutoFocus('searchButton');// -->
</script>
<script type='text/javascript'><!--
try{igedit_init("IDE_SERIE",4,"IDE_SERIE,,1,,,,8,1,1,,,0,0,,-1,",["",",,",".","-","","","n","-n",6,0,0,1,-2147483648,1,2147483647,"","",3]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("IDE_NNF",0,"IDE_NNF,,1,,,,0,1,1,,,2,1,,-1,",[""]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("IDE_DEMI_FROM",2,"IDE_DEMI_FROM,,1,,,,0,1,1,,,0,0,,-1,",["2011-6-18-0-0-0-0,,","09/05/03","_  031","09/05/03","",29,0]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("IDE_DEMI_NOOP",2,"IDE_DEMI_NOOP,,1,,,,0,1,1,,,0,0,,-1,",["2011-6-25-0-0-0-0,,","09/05/03","_  031","09/05/03","",29,0]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("EMIT_CNPJ",1,"EMIT_CNPJ,,1,,,,0,1,1,,,0,1,,-1,",["","00.000.000/0000-00","_  10"]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("DEST_CNPJ",1,"DEST_CNPJ,,1,,,,0,1,1,,,0,1,,-1,",["","00.000.000/0000-00","_  10"]);}catch(e){window.status="Can't init editor";}
//--></script>
<script type='text/javascript'><!--
try{igedit_init("DEST_CPF",1,"DEST_CPF,,1,,,,0,1,1,,,0,1,,-1,",["","000.000.000-00","_  10"]);}catch(e){window.status="Can't init editor";}
//--></script>
</form>
</body>
</html>
<script>window.top.frames['GRID'].location.href='SearchResult.aspx?first=true';</script>
Editado pela última vez por trp em Ter Ago 02, 2011 11:03 am, em um total de 1 vez.


mirculio
Colaborador
Colaborador
Mensagens: 33
Registrado em: Qua Jun 29, 2011 11:24 am

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por mirculio »

Bom dia Tomaz, segue abaixo o código em questão..... é uma tabela com alguns links. Como ele é bem grande, coloquei apenas a parte do frame em questão.
Caso necessite posto o resto!!!!

No caso preciso acessar o link "Produção" e outros links posteriormente. Com os exemplos vistos anteriormente somente consigo acessar os links dispostos em outro frame que fica logo acima desse. O problema seria no direcionamento do frame eu acredito!!!!

Código: Selecionar todos

<table border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" width="100%">
	<tr height="13"><td></td></tr>
	<tr valign="top">
  	<td height="460" valign="top" id="conteudo">
     
      	<h1 class="cor">Minhas Aplicações</h1>
      	<br>
 		<p style="width:554px">
	
			<span class="txtescmaior"><p>As aplicações exibidas abaixo variam conforme o perfil do usuário.</p></span><br>			
  	
   		</p>
   		<BR>
   	
     <table border="0" cellspacing="0" cellpadding="0">
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="2"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('merge(ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/SAP/Producao/role.Aplicacoes_Minhas_Aplicacoes_ZSJKMAF_PROD_FOP1M/Aplicacoes/Minhas_Aplicacoes/DIP|ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/SAP/Producao/role.Aplicacoes_Minhas_Aplicacoes_ZSJKMAF_PROD_FOP2M/Aplicacoes/Minhas_Aplicacoes/DIP)',0,'height= 0,width=0,toolbar,location,status,scrollbars,directories,menubar,resizable','null');" class="txtlink" >DIP</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('merge(ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/SAP/Producao/role.Aplicacoes_Minhas_Aplicacoes_ZSJKMAF_PROD_FOP1M/Aplicacoes/Minhas_Aplicacoes/Producao|ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/SAP/Producao/role.Aplicacoes_Minhas_Aplicacoes_ZSJKMAF_PROD_FOP2M/Aplicacoes/Minhas_Aplicacoes/Producao)',0,'height= 0,width=0,toolbar,location,status,scrollbars,directories,menubar,resizable','null');" class="txtlink" >Produção</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/Recursos_Humanos/role.Aplicacoes_Minhas_Aplicacoes_Aval_360_2009/workset.Aplicacoes/Minhas_Aplicacoes/iview.PSC_R_Template_URL_iView_Novo_3',1,'height= 750,width=500,resizable=yes,scrollbars=yes,toolbar=yes,status=yes,left=100, top=20,width=800,height=600','');" class="txtlink" >CTE - Controle Acesso Terceiro Embraer</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/Recursos_Humanos/role.Aplicacoes_Minhas_Aplicacoes_Aval_360_2009/workset.Aplicacoes/Minhas_Aplicacoes/iview.PSC_R_Template_URL_iView_Novo_4',1,'height= 750,width=500,resizable=yes,scrollbars=yes,toolbar=yes,status=yes, left=100, top=20','');" class="txtlink" >Solicitação de Transportes</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/Recursos_Humanos/role.Aplicacoes_Minhas_Aplicacoes_Aval_360_2009/workset.Aplicacoes/Minhas_Aplicacoes/iview.PVE_Ciclo2',0,'height= -1,width=-1,','');" class="txtlink" >Programa de Reconhecimento das Práticas dos Valores EMBRAER - 2º ciclo</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/Recursos_Humanos/role.Aplicacoes_Minhas_Aplicacoes_Aval_360_2009/workset.Aplicacoes/Minhas_Aplicacoes/iview.PSC_R_Template_URL_iView_AVE2011',1,'height= 750,width=500,resizable=yes,scrollbars=yes,toolbar=yes,status=no, left=100, top=20','');" class="txtlink" >Avaliação por Competências - 2011 - 4º Ciclo</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		<tr>
		<td width="547" height="25"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/blt_seta_pq_cor.gif" width="4" height="8" alt="" class="bltdestaque">
		
		
		<a href="#" OnClick="javascript:EPCM.doNavigate('ROLES://portal_content/Embraer/Empresarial/Role/Aplicacoes/Minhas_Aplicacoes/Contas_TI/role.Aplicacoes_Minhas_Aplicacoes_Solicitacao_ContasTI/workset.Aplicacoes/Minhas_Aplicacoes/iview.PSC_R_Template_URL_iView_Novo',1,'height= 750,width=500,resizable=yes,scrollbars=yes,toolbar=yes,status=yes, left=100, top=20,width=800,height=600','');" class="txtlink" >SCTI - Solicitação Contas de TI</a></td>
		</tr>
		<tr>
		<td bgcolor="#D9D9D9"><img src="/irj/portalapps/br.com.embraer.portal.web-resources/img/pix.gif" width="1" height="1"></td>
		</tr>
	
		
		</table>


ricarpp
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Seg Ago 01, 2011 6:00 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por ricarpp »

Tomás,
Uma dúvida não estou conseguindo logar na página "https://login.salesforce.com/?locale=br", consigo colocar o usuário, senha normalmente, mais no momento que tento rodar o código "ie.Document.all("Login").Click". Dá o seguinte erro O objeto não aceita esta propriedade ou método. Quando rodo o código "ie.frames(0).Document.all("Login").Click" ele zero o form..... O que pode ser?
Muito obrigado.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por webmaster »

mirculio,

Pode enviar a planilha com a parte do código que dá o problema?

Abraços


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por webmaster »

Ricarpp,

No caso da página que enviou, o input Login é o submit do form, portanto, um Document.submit deve funcionar.

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.


Responder