Ir ao conteúdo
  • Cadastre-se

Excel vba excel internet explorer


Posts recomendados

post-692717-0-53356200-1441284868_thumb.

 

Bom dia

 

Eu estou utilizando um código que loga em um site pelo Internet Explorer. porém gostaria de saber como posso através do próprio vba excel, ativar o menu.

Sub LOGAR()Dim usuario, senha As Variantusuario = Range("E1") senha = Range("E2")Dim IE As ObjectSet IE = CreateObject("InternetExplorer.application")With IE .Visible = True .Navigate ("xxxxxxxxxxxxxx")While .Busy Or .ReadyState <> 4:DoEvents:Wend.Document.getElementById("txtUsuario").Focus.Document.getElementById("txtUsuario").Value = usuario.Document.getElementById("txtSenha").Focus.Document.getElementById("txtSenha").Value = senha.Document.all("btnEntrar").ClickWhile .Busy Or .ReadyState <> 4:DoEvents:WendDebug.Print .LocationURLEnd WithEnd Sub

---------------------------------------------------------------------------

segue em anexo um print da tela do site, e o código HTML do site. Acredito que o Menu esteja em flash. Gostaria de acionar a opção

 

OS >> Torre de Controle

 

 

---------------------------------------------------------------------------

 

 

 

<!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>    <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE8" />    <title>iCare Parceiro</title>    <link rel="stylesheet" type="text/css" href="../Styles/dropDown.css"/>    <link rel="stylesheet" type="text/css" href="../Styles/novaTorre.css?635768352000000000"/>    <link rel="stylesheet" type="text/css" href="../Styles/superfish.css"/>    <link rel="stylesheet" type="text/css" href="../Styles/struct.css" />    <link rel="stylesheet" type="text/css" href="../Styles/mnuSupDropdown.css" />    <link rel="stylesheet" type="text/css" href="../Styles/buttons.css" />    <link rel="stylesheet" type="text/css" href="../Styles/status.css" />    <link rel="stylesheet" type="text/css" href="../Styles/ui.dropdownchecklist.css" />    <link rel="stylesheet" type="text/css" href="../Styles/jquery.ui.css" />    <link rel="stylesheet" type="text/css" href="../Styles/gridView.css" />    <link rel="stylesheet" type="text/css" href="../Styles/load.css" />    <link rel="stylesheet" type="text/css" href="../Styles/search.css" />    <link rel="stylesheet" type="text/css" href="../Styles/form.css" />    <link rel="stylesheet" type="text/css" href="../Styles/modules.css" />    <link rel="stylesheet" type="text/css" href="../Styles/engine.css" />    <link rel="stylesheet" type="text/css" href="../Styles/menutabs.css" />    <link rel="stylesheet" type="text/css" href="../../css/thickbox.css"/><script type="text/javascript" src="../Scripts/jquery-1.5.2.min.js" ></script>    <script type="text/javascript" src="../Scripts/jquery.tmpl.js"></script>    <script type="text/javascript" src="../Scripts/jquery.address-1.4.min.js"></script>    <script type="text/javascript" src="../scripts/enumerator.js"></script>    <script type="text/javascript" src="../Scripts/mnuSupDropdown.js"></script>    <script type="text/javascript" src="../Scripts/jquery.ui.js"></script>    <script type="text/javascript" src="../Scripts/jquery.ui.extend.js"></script>    <script type="text/javascript" src="../Scripts/sky.json.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/sky.alert.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/sky.dialog.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/sky.process.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/datetime.js"></script>     <script type="text/javascript" src="../Scripts/maskedinput.js"></script>    <script type="text/javascript" src="../Scripts/deserialize.js"></script>    <script type="text/javascript" src="../Scripts/JavaScriptManager.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/PageLoader.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/loadmenu.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/dropDown.js"></script>    <script type="text/javascript" src="../Scripts/novatorre.js?635768352000000000"></script>     <script type="text/javascript" src="../Scripts/jquery.ui.multidraggable-1.8.8.js"></script>    <script type="text/javascript" src="../Scripts/Calendar/CalendarLoader.js?635768352000000000"></script>    <script type="text/javascript" src="Controls/TechnicalSearch.js?635768352000000000"></script>    <script type="text/javascript" src="../Scripts/superfish.js"></script>     <script type="text/javascript" src="../Scripts/date.js"></script>     <script type="text/javascript" src="../Scripts/validation.js"></script>    <script type="text/javascript" src="../Scripts/menutabs.js"></script>    <script type="text/javascript" src="../../scripts/main.js"></script>    <script type="text/javascript" src="../../scripts/thickbox.js"></script></head><body>    <div class="main" id="main">        <div class="topHD">            <a href="Default.aspx#/QuickSearch" class="logo"></a>            <div class="boxTop" style="display: none">                <div class="user">                    <ul>                        <li class="bigFont"><span class="nmUser">Usuário: </span>| <a href="#" class="logoff">                            Sair</a></li>                        <li><span class="nmWork">Empresa: </span></li>                        <li><span class="lastAccessDate">Último acesso: </span></li>                    </ul>                </div>                <div class="nmSystem">                    <marquee behavior="scroll" direction="left"></marquee>                </div>            </div>        </div>        <div class="menu" style="display: none">            <div class="pwrapTop">            </div>        </div>        <form id="form" class="mainForm"  method="post" action="">                  <div id="divMain" class="row">            <h1 id="divTitle" style="float:left"></h1><a href="javascript:history.back();" class="button back" style="display:none;float:right" id="linkBack">Voltar</a>            <div id="divSearch">            </div>                          <div id="divAction">            </div>                       <div id="divAlertEvent"></div>             <div id="divResult">            </div>                <a id="lnkAlerta" class="thickbox"></a>        </div>        </form>       </div>    <div id="loading">        <div class="loadShadow"></div>        <div id="loadingText" class="loadBox"><p>Carregando</p></div>    </div>    <div id="notificacao" style="display:none;">        <div class="loadShadow"></div>        <div id="notificacaoText" class="loadBox" style="width:355px; height:80px"><p>Ocorreu um acesso com este mesmo login em outra estação.<br />A sua sessão está sendo encerrada.</p></div>    </div>    <div id="divPopupMessage" style="position: absolute; bottom: 5px; width: 100%;"></div>    <script language="javascript" type="text/javascript">         var sessionEnded =false;         var popupEventAlert;         $.ajaxSetup({ cache: true });         $('body').ajaxSend(function (e, jqxhr, settings) {            if(settings.url.indexOf('.ashx') == -1){                settings.url += settings.url.indexOf('?')==-1 ? "?" + iCareParceiro.getVersionHash():  "&" + iCareParceiro.getVersionHash();            }             });                 var handlerPath = '../Process/';        var javaScriptManager = new JavaScriptManager($("#form"));        iCareParceiro.date = new Date(2015 , (09 -1), 03,  00, 00, 00);        $(document).ready(function () {           var data = new JSON();            data.addPair("HandleAction", "FindBanner", data.type.string);            //Banner            getData(handlerPath + 'Banner.ashx',                 data.getString(),                 function (ret) {                                        if (!ret || ret.length == 0) return;                                        exibirBannerUrl(ret[0].Id, ret[0].Name, '../../banner.aspx');                },                function (e, m) {                    popupEventAlert = new MessageBox('divPopupMessage', 620);                    popupEventAlert.error('<strong>Houve erro ao obter Banner.</strong>' + getJsonExceptionDOM(m).html().toString());                }            );         });</script>    <script type="text/javascript" src="../Scripts/loginSimultaneo.js"></script></body></html>
Link para o comentário
Compartilhar em outros sites

  • 2 anos depois...

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...