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

Baixar dados - ultimo gerado - da Web.

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Baixar dados - ultimo gerado - da Web.

Mensagem por Wagner.cwb »

Olá Colegas! Espero que todos estejam bem!
Solicito a ajuda para completar ou indicar melhorias no código que estou tentando criar para baixar dados de um site.
O site é gerador de relatórios e necessito de apenas um e do mais recente.
Consegui fazer a parte de autenticar o login e chegar no endereço foco (onde estão os relatório).

Por favor, podem ajudar-me?

Código: Selecionar todos

Public Sub Acesso_OITelecom()

  Dim ie As Object
  Dim selenium As New SeleniumWrapper.WebDriver
  Set ie = CreateObject("internetexplorer.application")
  selenium.Start "ie", "http://urapms.brasiltelecom.com.br/"

  selenium.Open "/pms/"
  selenium.Type "name=j_username", "xxxxx"
  selenium.Type "name=j_password", "xxxxx"
  selenium.clickAndWait "link=Entrar"
  selenium.Open "/pms/relatorio/disponivel/disponivel.do"
  
  'aqui travei
   
End Sub
O código para exatamente nesta parte da imagem:
Imagem_tela.png
Imagem_tela.png (42.8 KiB) Exibido 5696 vezes
Pensei em duas alternativas, a primeira é buscar o arquivo mais recente com o nome "Relatório Copel por POP - Hora_" com a extensão .xls

A segunda é filtrar a busca por "POP" no campo "Parte do Nome:" não dominei muito está parte... investi mais na primeira alternativa.

Tentei identificar um padrão... o que visualizei foi:

Código: Selecionar todos

<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217235' 
        			target="_blank" id='217235'>XLS</a>&nbsp;
Segue o código fonte da página da imagem.

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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Pragma" content="no-cache"/>
<meta http-equiv="Expires" content="-1"/>
<title>BRASIL TELECOM</title>
<link href="/pms/layouts/skinVoicePMS1/css/geral.css" rel="stylesheet" type="text/css" />
 
 
		<link href="/pms/layouts/skinVoicePMS1/cal_js/calendar-blue.css" rel="stylesheet" type="text/css" />
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/calendar.js"></script>
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/lang/calendar-pt-br.js"></script>
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/calendar-setup.js"></script>
	
<script type="text/javascript" src="/pms/scripts/pms.js"></script>
<script> 
 
	
	function exclui(id) {
		if(confirm('Deseja realmente excluir este relatório?')) {
			window.open(
				'/pms/relatorio/disponivel/excluir.do?id=' + id, 
				'_self');
		}
	}
	
	function atualizar(){
		form = document.forms[0];
			
		if(!preencheu(form.dtInicio)) {
			alert('O preenchimento do campo data inicial é obrigatório.');
			return;
		}
		if(!preencheu(form.dtFim)) {
			alert('O preenchimento do campo data final é obrigatório.');
			return;
		}
				
		// Monta datas
		var dtInicio = getData(form.dtInicio.value);
		var dtFim = getData(form.dtFim.value);
		
		if(dtInicio > dtFim) {
			alert('A data inicial deve ser menor que a data final.');
			return;
		}
		
		form.submit();
	}
 
	
</script>
 
<script language="JavaScript1.2" src="/pms/scripts/coolmenus4.js"> 
/*****************************************************************************
Copyright (c) 2001 Thomas Brattli (webmaster@dhtmlcentral.com)
 
DHTML coolMenus - Get it at coolmenus.dhtmlcentral.com
Version 4.0_beta
This script can be used freely as long as all copyright messages are
intact.
 
Extra info - Coolmenus reference/help - Extra links to help files ****
CSS help: http://192.168.1.31/projects/coolmenus/reference.asp?m=37
General: http://coolmenus.dhtmlcentral.com/reference.asp?m=35
Menu properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=47
Level properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=48
Background bar properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=49
Item properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=50
******************************************************************************/
</script>
 
</head>
<body onload="MM_preloadImages('/pms/layouts/skinVoicePMS1/imagens/b0_configuracoes_2.gif','/pms/layouts/skinVoicePMS1/imagens/b2_pab_2.gif','/pms/layouts/skinVoicePMS1/imagens/b3_stn_2.gif','/pms/layouts/skinVoicePMS1/imagens/b4_destinos_2.gif','/pms/layouts/skinVoicePMS1/imagens/b5_lig_2.gif','/pms/layouts/skinVoicePMS1/imagens/b6_proformar_2.gif','/pms/layouts/skinVoicePMS1/imagens/b7_relatorios_2.gif','/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_sair_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_incluir_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_alterar_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_excluir_2.gif');">
 
 
 
 
 
 
 
<script> 
/***
This is the menu creation code - place it right after you body tag
Feel free to add this to a stand-alone js file and link it to your page.
**/
 
//Menu object creation
oCMenu=new makeCM("oCMenu")
oCMenu.frames = 0
 
//Menu properties
oCMenu.pxBetween=0
oCMenu.fromLeft=0
oCMenu.fromTop=77
oCMenu.rows=1
oCMenu.menuPlacement="left"
oCMenu.offlineRoot=""
oCMenu.onlineRoot=""
oCMenu.resizeCheck=1
oCMenu.wait=1000
oCMenu.fillImg="cm_fill.gif"
oCMenu.zIndex=0
oCMenu.useBar=0
 
//Level properties - ALL properties have to be spesified in level 0
oCMenu.level[0]=new cm_makeLevel()
oCMenu.level[0].width=85
oCMenu.level[0].height=22
oCMenu.level[0].regClass="clLevel0"
oCMenu.level[0].overClass="clLevel0over"
oCMenu.level[0].borderX=1
oCMenu.level[0].borderY=1
oCMenu.level[0].borderClass="clLevel0border"
oCMenu.level[0].offsetX=-1
oCMenu.level[0].offsetY=0
oCMenu.level[0].rows=0
oCMenu.level[0].arrow=0
oCMenu.level[0].arrowWidth=0
oCMenu.level[0].arrowHeight=0
oCMenu.level[0].align="bottom"
 
oCMenu.level[1]=new cm_makeLevel()
oCMenu.level[1].width=150
oCMenu.level[1].height=22
oCMenu.level[1].regClass="clLevel1"
oCMenu.level[1].overClass="clLevel1over"
oCMenu.level[1].borderX=1
oCMenu.level[1].borderY=6
oCMenu.level[1].align="right"
oCMenu.level[1].offsetX=-10;
oCMenu.level[1].offsetY=0
oCMenu.level[1].borderClass="clLevel1border"
 
oCMenu.level[2]=new cm_makeLevel()
oCMenu.level[2].width=150
oCMenu.level[2].height=16
oCMenu.level[2].regClass="clLevel2"
oCMenu.level[2].overClass="clLevel2over"
 
var imgPath = '/pms/layouts/skinVoicePMS1/imagens/';
oCMenu.makeMenu('item0','','Configurações','','',0,0,imgPath+'b0_configuracoes_1.gif',imgPath+'b0_configuracoes_2.gif')
oCMenu.makeMenu('item02','item0','Banco de Dados','/pms/cadastro/dados/listar.do','',0,0)
oCMenu.makeMenu('item1','','Relatórios','','',0,0,imgPath+'b7_relatorios_1.gif',imgPath+'b7_relatorios_2.gif')
oCMenu.makeMenu('item10','item1','Básicos','','',0,0)
oCMenu.makeMenu('item100','item10','Agendamentos','/pms/relatorio/agenda/listar.do','',0,0)
oCMenu.makeMenu('item101','item10','Disponíveis','/pms/relatorio/disponivel/disponivel.do','',0,0)
 
 
//Leave this line - it constructs the menu
oCMenu.construct()
 
</script>
 
 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="topo" id="topo">
  <tr>
    <td width="615"><a href="/pms/index.jsp"><img src="/pms/layouts/skinVoicePMS1/imagens/logo.gif" width="615" height="78" border="0"/></a></td>
	
		<td align="right" valign="top"><a href="/pms/logout.jsp"><img src="/pms/layouts/skinVoicePMS1/imagens/b_sair_1.gif" name="sair" width="26" height="48" hspace="30" border="0" id="sair" onmouseover="MM_swapImage('sair','','/pms/layouts/skinVoicePMS1/imagens/b_sair_2.gif',1)" onmouseout="MM_swapImgRestore()" /></a></td>
	
  </tr>
</table>
 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="topo_menu">
  <tr>
    <td>&nbsp;</td>
	
      <td width="87"><a href="#"><img src="/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_1.gif" name="ajuda" width="87"
      	height="22" border="0" id="ajuda"
      	onclick="popupHelp('/pms')"
      	onmouseover="MM_swapImage('ajuda','','/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_2.gif',1);MM_showHideLayers('config_sub','','hide');MM_showHideLayers('stn_sub','','hide');MM_showHideLayers('relatorios_sub','','hide')" 
      	onmouseout="MM_swapImgRestore()" /></a></td>
    
  </tr>
</table>
 
 
<div id="conteudo">
      
      <div class="titulo" id="titulo">RELATÓRIOS GERADOS </div>
      
            
      
      
	
    <form name="ListarDisponivelForm" method="post" action="/pms/relatorio/disponivel/disponivel.do">
     
    <table border="0" align="center" cellpadding="0" cellspacing="0" id="formulario">
    	<tr>
	        <th>Relatórios gerados entre<span class="obrigatorio">*</span>:</th>
	        <td><table border="0" cellpadding="0" cellspacing="0"><tr>
		        <td class="texto_2">
					<input type="text" name="dtInicio" value="27/10/2016" readonly="readonly" id="f_date_c" style="width: 100px;" class="campo_cinza">
				</td>
				<td class="texto_2">
					<img src="/pms/layouts/skinVoicePMS1/imagens/b_calendario_1.gif" name="f_trigger_c" align="absmiddle" 
						width="19" height="18" id="f_trigger_c"
				        style="cursor: pointer; border: 0;"
		        		title="Seletor de data" 
		        		onmouseover="MM_swapImage('f_trigger_c','','/pms/layouts/skinVoicePMS1/imagens/b_calendario_2.gif',1)"
				        onmouseout="MM_swapImgRestore()"
				    />
			        <script type="text/javascript">
						Calendar.setup({
					    	inputField     :    "f_date_c",
					        ifFormat       :    "%e/%m/%Y",
					        button         :    "f_trigger_c",
					        align          :    "Tl",
					        singleClick    :    true
					    });
				    </script>   
		        </td>
		  	</td></table></td>
    	</tr>
	 	<tr>
	        <th>Até<span class="obrigatorio">*</span>:</th>
	        <td><table border="0" cellpadding="0" cellspacing="0"><tr>
		        <td class="texto_2">
					<input type="text" name="dtFim" value="03/11/2016" readonly="readonly" id="f_date_c2" style="width: 100px;" class="campo_cinza">
				</td>
				<td class="texto_2">
					<img src="/pms/layouts/skinVoicePMS1/imagens/b_calendario_1.gif" name="f_trigger_c2" align="absmiddle"
						width="19" height="18" id="f_trigger_c2"
				        style="cursor: pointer; border: 0;"
		        		title="Seletor de data" 
		        		onmouseover="MM_swapImage('f_trigger_c2','','/pms/layouts/skinVoicePMS1/imagens/b_calendario_2.gif',1)"
				        onmouseout="MM_swapImgRestore()"
				    />
			        <script type="text/javascript">
						Calendar.setup({
					    	inputField     :    "f_date_c2",
					        ifFormat       :    "%e/%m/%Y",
					        button         :    "f_trigger_c2",
					        align          :    "Tl",
					        singleClick    :    true
					    });
				    </script>     
		        </td>
		  	</td></table></td>
	 	</tr>
	 	<tr>
	        <th>Parte do Nome:</th>
	        <td class="texto_2">
				<input type="text" name="nomeArquivo" maxlength="40" value="" onblur="this.className='campo_1'" onfocus="this.className='campo_1_hover'" class="campo_1">
	        </td>
	        <td>&nbsp;</td>
			<td>
				<a href="javascript:atualizar()" class="botao1">Atualizar</a>
			</td>
		</tr>
	</table>
	
	<p></p>
	
	
 
 
 
	<div class="pagebanner">Apresentando 1 a 20 de 288.</div><div class="pagelinks">[Primeiro/Anterior] <strong>1</strong>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2" title="Ir para a página 2">2</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=3" title="Ir para a página 3">3</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=4" title="Ir para a página 4">4</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=5" title="Ir para a página 5">5</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=6" title="Ir para a página 6">6</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=7" title="Ir para a página 7">7</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=8" title="Ir para a página 8">8</a> [<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2">Próximo</a>/<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=15">Último</a>]</div>
<table style="width: 100%" id="listagem">
<thead>
<tr>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=0&d-49300-p=1">Nome</a></th>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=1&d-49300-p=1">Tipo</a></th>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=2&d-49300-p=1">Período</a></th>
<th>Formatos</th>
<th>Situação</th>
<th>Usuário</th>
<th>&nbsp;</th></tr></thead>
<tbody>
<tr class="odd">
<td class="esquerda">FAX_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217244' 
        			target="_blank" id='217244'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160573)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160573" 
			    			onmouseover="MM_swapImage('excluir160573','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">FAX_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217246' 
        			target="_blank" id='217246'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160575)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160575" 
			    			onmouseover="MM_swapImage('excluir160575','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">FAX_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217245' 
        			target="_blank" id='217245'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160574)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160574" 
			    			onmouseover="MM_swapImage('excluir160574','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217235' 
        			target="_blank" id='217235'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217233' 
        			target="_blank" id='217233'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160568)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160568" 
			    			onmouseover="MM_swapImage('excluir160568','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217234' 
        			target="_blank" id='217234'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217237' 
        			target="_blank" id='217237'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160569)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160569" 
			    			onmouseover="MM_swapImage('excluir160569','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217232' 
        			target="_blank" id='217232'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217236' 
        			target="_blank" id='217236'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160567)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160567" 
			    			onmouseover="MM_swapImage('excluir160567','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">TESTE_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217228' 
        			target="_blank" id='217228'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217231' 
        			target="_blank" id='217231'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160566)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160566" 
			    			onmouseover="MM_swapImage('excluir160566','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">TESTE_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217230' 
        			target="_blank" id='217230'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217229' 
        			target="_blank" id='217229'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160565)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160565" 
			    			onmouseover="MM_swapImage('excluir160565','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">ZINI_20161103</td>
<td class="esquerda">Relatório Fax Copel Detalhado</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217227' 
        			target="_blank" id='217227'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160564)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160564" 
			    			onmouseover="MM_swapImage('excluir160564','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">SABADO_20161103</td>
<td class="esquerda">Relatório Fax Copel Detalhado</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217215' 
        			target="_blank" id='217215'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160552)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160552" 
			    			onmouseover="MM_swapImage('excluir160552','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">ZG_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217216' 
        			target="_blank" id='217216'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160553)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160553" 
			    			onmouseover="MM_swapImage('excluir160553','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">HENRIQUE-TESTE_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217219' 
        			target="_blank" id='217219'>PDF</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160556)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160556" 
			    			onmouseover="MM_swapImage('excluir160556','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">HENRIQUE-TESTE_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217220' 
        			target="_blank" id='217220'>PDF</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160557)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160557" 
			    			onmouseover="MM_swapImage('excluir160557','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">SABADO_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217222' 
        			target="_blank" id='217222'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160559)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160559" 
			    			onmouseover="MM_swapImage('excluir160559','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">SABADO_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217223' 
        			target="_blank" id='217223'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160560)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160560" 
			    			onmouseover="MM_swapImage('excluir160560','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">SABADO_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217226' 
        			target="_blank" id='217226'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160563)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160563" 
			    			onmouseover="MM_swapImage('excluir160563','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">HENRIQUE-TESTE_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217218' 
        			target="_blank" id='217218'>PDF</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160555)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160555" 
			    			onmouseover="MM_swapImage('excluir160555','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">ZG_20161103</td>
<td class="esquerda">Relatório Fax Copel Diário</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217217' 
        			target="_blank" id='217217'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160554)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160554" 
			    			onmouseover="MM_swapImage('excluir160554','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">SABADO_20161103</td>
<td class="esquerda">Relatório Fax Copel Detalhado</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217213' 
        			target="_blank" id='217213'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160550)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160550" 
			    			onmouseover="MM_swapImage('excluir160550','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">ZINI_20161103</td>
<td class="esquerda">Relatório Fax Copel Detalhado</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217211' 
        			target="_blank" id='217211'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160549)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160549" 
			    			onmouseover="MM_swapImage('excluir160549','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr></tbody></table><div class="pagebanner">Apresentando 1 a 20 de 288.</div><div class="pagelinks">[Primeiro/Anterior] <strong>1</strong>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2" title="Ir para a página 2">2</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=3" title="Ir para a página 3">3</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=4" title="Ir para a página 4">4</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=5" title="Ir para a página 5">5</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=6" title="Ir para a página 6">6</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=7" title="Ir para a página 7">7</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=8" title="Ir para a página 8">8</a> [<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2">Próximo</a>/<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=15">Último</a>]</div>
	
 
  </form>
 
 
</div>
 
</body>
</html>
 


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.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Baixar dados - ultimo gerado - da Web.

Mensagem por Wagner.cwb »

Boa noite pessoal!

evoluiu um pouco... entendi o mecanismo para preencher o campos "name", porém travou agora para executar o download do arquivo mais recente.xls.

Código: Selecionar todos

Public Sub Acesso_OITelecom()

  Dim ie As Object
  Dim fso As New FileSystemObject
  Dim selenium As New SeleniumWrapper.WebDriver
  Set ie = CreateObject("internetexplorer.application")
  selenium.Start "ie", "http://urapms.brasiltelecom.com.br/"
  
  Do While ie.Busy: VBA.DoEvents: Loop
  
  selenium.Open "/pms/"
  selenium.Type "name=j_username", "xxxx"
  selenium.Type "name=j_password", "xxxx"
  selenium.clickAndWait "link=Entrar"
  selenium.Open "/pms/relatorio/disponivel/disponivel.do"
  selenium.Type "name=nomeArquivo", "POP"
  selenium.clickAndWait "link=Atualizar"
  
  'aqui eu tentei identificar a tabela onde está o ultimo arquivo.
  'erro na sintaxe... 
  
  selenium.verifyTable "id=listagem.1.3", "HTML  XLS"
  selenium.Click "id=listagem.1.3", "XLS"
    
  Set ie = Nothing
  
End Sub
Por favor, alguma dica de como completar o código?
Se preferirem indicar um código Vba convencional, não tem problema.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Baixar dados - ultimo gerado - da Web.

Mensagem por Wagner.cwb »

Bom dia pessoal,

consegui fazer abrir o último link lançado, segui a lógica do codigo criado pelo selenium
e criei o comando selenium.clickAndWait "link=XLS"
Tive que abri via chrome... o link esta salvando direto na pasta download, gerando uma nova demanda,
preciso direcionar o arquivo com outro nome para outro destino, alguma sugestão?

Obrigado!

Public Sub Acesso_OITelecom()

Dim ie As Object
Dim fso As New FileSystemObject
Dim selenium As New SeleniumWrapper.WebDriver
Set ie = CreateObject("internetexplorer.application")
selenium.Start "chrome", "http://urapms.brasiltelecom.com.br/"

'selenium.Start "ie", "http://urapms.brasiltelecom.com.br/"

Do While ie.Busy: VBA.DoEvents: Loop

selenium.Open "/pms/"
selenium.Type "name=j_username", "xxxx"
selenium.Type "name=j_password", "zzzz"
selenium.clickAndWait "link=Entrar"
selenium.Open "/pms/relatorio/disponivel/disponivel.do"
selenium.Type "name=nomeArquivo", "POP"
selenium.clickAndWait "link=Atualizar"

selenium.clickAndWait "link=XLS" 'FUNCIONA

Set ie = Nothing

End Sub


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Baixar dados - ultimo gerado - da Web.

Mensagem por Wagner.cwb »

Olá Pessoal, vou informá-los sobre a minha saga rs

Tentei realizar a atividade via selenium, funcionou, porém somente em um computador, creio que seja pela velocidade e configurações.
Tive problemas também com a liberação do uso do selenium no escritório, meu supervisor vetou até haver uma homologação, enfim, refiz o projeto em vba e estou quase lá, graças a Deus, tive a oportunidade de estudar artigos daqui e de outros locais e tendo como base um artigo do Tomas e ajuda do Makil em outro código, foi feito o script a seguir:

OBS: O que esta comentado é onde parei e não sei mais como fazer...

Resumindo, consegui chegar na última pagina do site, preciso agora fazer o download do link xls mais recente, alguma sugestão? Por favor.

Código: Selecionar todos

Sub Referencia()
    Dim ObRef
    On Error Resume Next
    ' Adiciona Controles da Net
    ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub

Sub x()
    Dim ie As InternetExplorer
    Dim ULogin As Boolean, ieForm
    Dim MyPass As String, MyLogin As String
    Dim datainicio As Date, datafim As Date
redo:
    MyLogin = Application.InputBox("Por Favor entre com o Login", "OI - PMS - OCUPADAS", Default:="login", Type:=2)
    MyPass = Application.InputBox("Por favor entre com a senha", "OI - PMS - OCUPADAS", Default:="Password", Type:=2)
    If MyLogin = "" Or MyPass = "" Then GoTo redo
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate "http://urapms.brasiltelecom.com.br/pms/"
 
    Do
    Loop While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
 
    ie.Document.all("j_username").innertext = MyLogin
    ie.Document.all("j_password").innertext = MyPass
    'obtém o forma a qual o controle de login pertence para submetê-lo
    ie.Document.forms(0).submit

    'tempo carregamento da pagina
    Do
    Loop While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
         
 '   If ULogin = False Then MsgBox "Usuário logado, aguarde obter o relatório"
    
    ie.Navigate "http://urapms.brasiltelecom.com.br/pms/relatorio/disponivel/listar-disponiveis.jsp"

    'tempo carregamento da pagina    
   Do While ie.ReadyState <> 4
   Loop
        
    datainicio = Range("M3").Value   ' Application.InputBox("Por Favor entre com a data inicial do relatório", "OI - PMS - OCUPADAS")
    datafim = ("01/01/2050")
        
    ie.Document.all("dtInicio").innertext = datainicio
    ie.Document.all("dtFim").innertext = datafim
    
        'tempo carregamento da pagina
   Do While ie.ReadyState <> 4
   Loop
   
   ie.Document.all("NomeArquivo").innertext = "POP"
            
   ie.Document.forms(0).submit 'botao atualizar - penultima pagina
   
       'tempo carregamento da pagina
   Do While ie.ReadyState <> 4
   Loop
   'para cima, tudo funcionou bem.
   'aqui estou travado, não sei como encontrar o último link xls gerado
   
   Dim iCount As Long
   
   For iCount = 0 To ie.Document.getelementsbytagname("a").Length - 1
    If ie.Document.getelementsbytagname("a")(iCount).innertext Like "id*" Then
      
      
      'REALIZAR A CÓPIA DO ARQUIVO EM UMA PASTA PREDETERMINADA, desconsiderar codigo abaixo, só parametro de outro estudo.
      
      'Plan1.Cells(1, 2).Value = VBA.Trim(VBA.Replace( _
       ' ie.Document.getelementsbytagname("a")(iCount).innertext, "XLS:", ""))
       'GoTo nextLinha 'Força saída do laço.
    'End If
  ' Next iCount
   
   'Caso não encontre nada no teste acima,
   'redireciona a rotina para a próxima linha.
   'GoTo nextLinha

'nextLinha: 'Referência pra próxima linha.
      
    'Set ie = Nothing
End Sub

código da pagina web em questão.

parte que, na minha analise, é a principal

Código: Selecionar todos

<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217529' 
        			target="_blank" id='217529'>XLS</a>&nbsp;
completo

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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Pragma" content="no-cache"/>
<meta http-equiv="Expires" content="-1"/>
<title>BRASIL TELECOM</title>
<link href="/pms/layouts/skinVoicePMS1/css/geral.css" rel="stylesheet" type="text/css" />
 
 
		<link href="/pms/layouts/skinVoicePMS1/cal_js/calendar-blue.css" rel="stylesheet" type="text/css" />
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/calendar.js"></script>
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/lang/calendar-pt-br.js"></script>
		<script type="text/javascript" src="/pms/layouts/skinVoicePMS1/cal_js/calendar-setup.js"></script>
	
<script type="text/javascript" src="/pms/scripts/pms.js"></script>
<script> 
 
	
	function exclui(id) {
		if(confirm('Deseja realmente excluir este relatório?')) {
			window.open(
				'/pms/relatorio/disponivel/excluir.do?id=' + id, 
				'_self');
		}
	}
	
	function atualizar(){
		form = document.forms[0];
			
		if(!preencheu(form.dtInicio)) {
			alert('O preenchimento do campo data inicial é obrigatório.');
			return;
		}
		if(!preencheu(form.dtFim)) {
			alert('O preenchimento do campo data final é obrigatório.');
			return;
		}
				
		// Monta datas
		var dtInicio = getData(form.dtInicio.value);
		var dtFim = getData(form.dtFim.value);
		
		if(dtInicio > dtFim) {
			alert('A data inicial deve ser menor que a data final.');
			return;
		}
		
		form.submit();
	}
 
	
</script>
 
<script language="JavaScript1.2" src="/pms/scripts/coolmenus4.js"> 
/*****************************************************************************
Copyright (c) 2001 Thomas Brattli (webmaster@dhtmlcentral.com)
 
DHTML coolMenus - Get it at coolmenus.dhtmlcentral.com
Version 4.0_beta
This script can be used freely as long as all copyright messages are
intact.
 
Extra info - Coolmenus reference/help - Extra links to help files ****
CSS help: http://192.168.1.31/projects/coolmenus/reference.asp?m=37
General: http://coolmenus.dhtmlcentral.com/reference.asp?m=35
Menu properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=47
Level properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=48
Background bar properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=49
Item properties: http://coolmenus.dhtmlcentral.com/properties.asp?m=50
******************************************************************************/
</script>
 
</head>
<body onload="MM_preloadImages('/pms/layouts/skinVoicePMS1/imagens/b0_configuracoes_2.gif','/pms/layouts/skinVoicePMS1/imagens/b2_pab_2.gif','/pms/layouts/skinVoicePMS1/imagens/b3_stn_2.gif','/pms/layouts/skinVoicePMS1/imagens/b4_destinos_2.gif','/pms/layouts/skinVoicePMS1/imagens/b5_lig_2.gif','/pms/layouts/skinVoicePMS1/imagens/b6_proformar_2.gif','/pms/layouts/skinVoicePMS1/imagens/b7_relatorios_2.gif','/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_sair_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_incluir_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_alterar_2.gif','/pms/layouts/skinVoicePMS1/imagens/b_f_excluir_2.gif');">
 
 
 
 
 
 
 
<script> 
/***
This is the menu creation code - place it right after you body tag
Feel free to add this to a stand-alone js file and link it to your page.
**/
 
//Menu object creation
oCMenu=new makeCM("oCMenu")
oCMenu.frames = 0
 
//Menu properties
oCMenu.pxBetween=0
oCMenu.fromLeft=0
oCMenu.fromTop=77
oCMenu.rows=1
oCMenu.menuPlacement="left"
oCMenu.offlineRoot=""
oCMenu.onlineRoot=""
oCMenu.resizeCheck=1
oCMenu.wait=1000
oCMenu.fillImg="cm_fill.gif"
oCMenu.zIndex=0
oCMenu.useBar=0
 
//Level properties - ALL properties have to be spesified in level 0
oCMenu.level[0]=new cm_makeLevel()
oCMenu.level[0].width=85
oCMenu.level[0].height=22
oCMenu.level[0].regClass="clLevel0"
oCMenu.level[0].overClass="clLevel0over"
oCMenu.level[0].borderX=1
oCMenu.level[0].borderY=1
oCMenu.level[0].borderClass="clLevel0border"
oCMenu.level[0].offsetX=-1
oCMenu.level[0].offsetY=0
oCMenu.level[0].rows=0
oCMenu.level[0].arrow=0
oCMenu.level[0].arrowWidth=0
oCMenu.level[0].arrowHeight=0
oCMenu.level[0].align="bottom"
 
oCMenu.level[1]=new cm_makeLevel()
oCMenu.level[1].width=150
oCMenu.level[1].height=22
oCMenu.level[1].regClass="clLevel1"
oCMenu.level[1].overClass="clLevel1over"
oCMenu.level[1].borderX=1
oCMenu.level[1].borderY=6
oCMenu.level[1].align="right"
oCMenu.level[1].offsetX=-10;
oCMenu.level[1].offsetY=0
oCMenu.level[1].borderClass="clLevel1border"
 
oCMenu.level[2]=new cm_makeLevel()
oCMenu.level[2].width=150
oCMenu.level[2].height=16
oCMenu.level[2].regClass="clLevel2"
oCMenu.level[2].overClass="clLevel2over"
 
var imgPath = '/pms/layouts/skinVoicePMS1/imagens/';
oCMenu.makeMenu('item0','','Configurações','','',0,0,imgPath+'b0_configuracoes_1.gif',imgPath+'b0_configuracoes_2.gif')
oCMenu.makeMenu('item02','item0','Banco de Dados','/pms/cadastro/dados/listar.do','',0,0)
oCMenu.makeMenu('item1','','Relatórios','','',0,0,imgPath+'b7_relatorios_1.gif',imgPath+'b7_relatorios_2.gif')
oCMenu.makeMenu('item10','item1','Básicos','','',0,0)
oCMenu.makeMenu('item100','item10','Agendamentos','/pms/relatorio/agenda/listar.do','',0,0)
oCMenu.makeMenu('item101','item10','Disponíveis','/pms/relatorio/disponivel/disponivel.do','',0,0)
 
 
//Leave this line - it constructs the menu
oCMenu.construct()
 
</script>
 
 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="topo" id="topo">
  <tr>
    <td width="615"><a href="/pms/index.jsp"><img src="/pms/layouts/skinVoicePMS1/imagens/logo.gif" width="615" height="78" border="0"/></a></td>
	
		<td align="right" valign="top"><a href="/pms/logout.jsp"><img src="/pms/layouts/skinVoicePMS1/imagens/b_sair_1.gif" name="sair" width="26" height="48" hspace="30" border="0" id="sair" onmouseover="MM_swapImage('sair','','/pms/layouts/skinVoicePMS1/imagens/b_sair_2.gif',1)" onmouseout="MM_swapImgRestore()" /></a></td>
	
  </tr>
</table>
 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="topo_menu">
  <tr>
    <td>&nbsp;</td>
	
      <td width="87"><a href="#"><img src="/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_1.gif" name="ajuda" width="87"
      	height="22" border="0" id="ajuda"
      	onclick="popupHelp('/pms')"
      	onmouseover="MM_swapImage('ajuda','','/pms/layouts/skinVoicePMS1/imagens/b8_ajuda_2.gif',1);MM_showHideLayers('config_sub','','hide');MM_showHideLayers('stn_sub','','hide');MM_showHideLayers('relatorios_sub','','hide')" 
      	onmouseout="MM_swapImgRestore()" /></a></td>
    
  </tr>
</table>
 
 
<div id="conteudo">
      
      <div class="titulo" id="titulo">RELATÓRIOS GERADOS </div>
      
            
      
      
	
    <form name="ListarDisponivelForm" method="post" action="/pms/relatorio/disponivel/disponivel.do">
     
    <table border="0" align="center" cellpadding="0" cellspacing="0" id="formulario">
    	<tr>
	        <th>Relatórios gerados entre<span class="obrigatorio">*</span>:</th>
	        <td><table border="0" cellpadding="0" cellspacing="0"><tr>
		        <td class="texto_2">
					<input type="text" name="dtInicio" value="1/1/2000" readonly="readonly" id="f_date_c" style="width: 100px;" class="campo_cinza">
				</td>
				<td class="texto_2">
					<img src="/pms/layouts/skinVoicePMS1/imagens/b_calendario_1.gif" name="f_trigger_c" align="absmiddle" 
						width="19" height="18" id="f_trigger_c"
				        style="cursor: pointer; border: 0;"
		        		title="Seletor de data" 
		        		onmouseover="MM_swapImage('f_trigger_c','','/pms/layouts/skinVoicePMS1/imagens/b_calendario_2.gif',1)"
				        onmouseout="MM_swapImgRestore()"
				    />
			        <script type="text/javascript">
						Calendar.setup({
					    	inputField     :    "f_date_c",
					        ifFormat       :    "%e/%m/%Y",
					        button         :    "f_trigger_c",
					        align          :    "Tl",
					        singleClick    :    true
					    });
				    </script>   
		        </td>
		  	</td></table></td>
    	</tr>
	 	<tr>
	        <th>Até<span class="obrigatorio">*</span>:</th>
	        <td><table border="0" cellpadding="0" cellspacing="0"><tr>
		        <td class="texto_2">
					<input type="text" name="dtFim" value="1/1/2050" readonly="readonly" id="f_date_c2" style="width: 100px;" class="campo_cinza">
				</td>
				<td class="texto_2">
					<img src="/pms/layouts/skinVoicePMS1/imagens/b_calendario_1.gif" name="f_trigger_c2" align="absmiddle"
						width="19" height="18" id="f_trigger_c2"
				        style="cursor: pointer; border: 0;"
		        		title="Seletor de data" 
		        		onmouseover="MM_swapImage('f_trigger_c2','','/pms/layouts/skinVoicePMS1/imagens/b_calendario_2.gif',1)"
				        onmouseout="MM_swapImgRestore()"
				    />
			        <script type="text/javascript">
						Calendar.setup({
					    	inputField     :    "f_date_c2",
					        ifFormat       :    "%e/%m/%Y",
					        button         :    "f_trigger_c2",
					        align          :    "Tl",
					        singleClick    :    true
					    });
				    </script>     
		        </td>
		  	</td></table></td>
	 	</tr>
	 	<tr>
	        <th>Parte do Nome:</th>
	        <td class="texto_2">
				<input type="text" name="nomeArquivo" maxlength="40" value="POP" onblur="this.className='campo_1'" onfocus="this.className='campo_1_hover'" class="campo_1">
	        </td>
	        <td>&nbsp;</td>
			<td>
				<a href="javascript:atualizar()" class="botao1">Atualizar</a>
			</td>
		</tr>
	</table>
	
	<p></p>
	
	
 
 
 
	<div class="pagebanner">Apresentando 1 a 20 de 6.507.</div><div class="pagelinks">[Primeiro/Anterior] <strong>1</strong>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2" title="Ir para a página 2">2</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=3" title="Ir para a página 3">3</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=4" title="Ir para a página 4">4</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=5" title="Ir para a página 5">5</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=6" title="Ir para a página 6">6</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=7" title="Ir para a página 7">7</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=8" title="Ir para a página 8">8</a> [<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2">Próximo</a>/<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=326">Último</a>]</div>
<table style="width: 100%" id="listagem">
<thead>
<tr>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=0&d-49300-p=1">Nome</a></th>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=1&d-49300-p=1">Tipo</a></th>
<th class="sortable">
<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-o=2&d-49300-s=2&d-49300-p=1">Período</a></th>
<th>Formatos</th>
<th>Situação</th>
<th>Usuário</th>
<th>&nbsp;</th></tr></thead>
<tbody>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161108</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			07/11/2016 à 
			07/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217529' 
        			target="_blank" id='217529'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217525' 
        			target="_blank" id='217525'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160775)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160775" 
			    			onmouseover="MM_swapImage('excluir160775','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161108</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			07/11/2016 à 
			07/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217528' 
        			target="_blank" id='217528'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217526' 
        			target="_blank" id='217526'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160776)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160776" 
			    			onmouseover="MM_swapImage('excluir160776','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161108</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			07/11/2016 à 
			07/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217530' 
        			target="_blank" id='217530'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217527' 
        			target="_blank" id='217527'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160777)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160777" 
			    			onmouseover="MM_swapImage('excluir160777','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161107</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			06/11/2016 à 
			06/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217482' 
        			target="_blank" id='217482'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217479' 
        			target="_blank" id='217479'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160740)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160740" 
			    			onmouseover="MM_swapImage('excluir160740','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161107</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			06/11/2016 à 
			06/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217484' 
        			target="_blank" id='217484'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217481' 
        			target="_blank" id='217481'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160742)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160742" 
			    			onmouseover="MM_swapImage('excluir160742','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161107</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			06/11/2016 à 
			06/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217480' 
        			target="_blank" id='217480'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217483' 
        			target="_blank" id='217483'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160741)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160741" 
			    			onmouseover="MM_swapImage('excluir160741','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161106</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			05/11/2016 à 
			05/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217373' 
        			target="_blank" id='217373'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217376' 
        			target="_blank" id='217376'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160675)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160675" 
			    			onmouseover="MM_swapImage('excluir160675','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161106</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			05/11/2016 à 
			05/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217378' 
        			target="_blank" id='217378'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217375' 
        			target="_blank" id='217375'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160677)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160677" 
			    			onmouseover="MM_swapImage('excluir160677','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161106</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			05/11/2016 à 
			05/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217374' 
        			target="_blank" id='217374'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217377' 
        			target="_blank" id='217377'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160676)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160676" 
			    			onmouseover="MM_swapImage('excluir160676','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161105</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			04/11/2016 à 
			04/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217331' 
        			target="_blank" id='217331'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217329' 
        			target="_blank" id='217329'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160642)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160642" 
			    			onmouseover="MM_swapImage('excluir160642','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161105</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			04/11/2016 à 
			04/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217330' 
        			target="_blank" id='217330'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217328' 
        			target="_blank" id='217328'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160641)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160641" 
			    			onmouseover="MM_swapImage('excluir160641','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161105</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			04/11/2016 à 
			04/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217332' 
        			target="_blank" id='217332'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217327' 
        			target="_blank" id='217327'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160640)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160640" 
			    			onmouseover="MM_swapImage('excluir160640','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161104</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			03/11/2016 à 
			03/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217284' 
        			target="_blank" id='217284'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217281' 
        			target="_blank" id='217281'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160605)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160605" 
			    			onmouseover="MM_swapImage('excluir160605','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161104</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			03/11/2016 à 
			03/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217286' 
        			target="_blank" id='217286'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217283' 
        			target="_blank" id='217283'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160607)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160607" 
			    			onmouseover="MM_swapImage('excluir160607','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161104</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			03/11/2016 à 
			03/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217282' 
        			target="_blank" id='217282'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217285' 
        			target="_blank" id='217285'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160606)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160606" 
			    			onmouseover="MM_swapImage('excluir160606','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217232' 
        			target="_blank" id='217232'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217236' 
        			target="_blank" id='217236'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160567)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160567" 
			    			onmouseover="MM_swapImage('excluir160567','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217234' 
        			target="_blank" id='217234'>HTML</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217237' 
        			target="_blank" id='217237'>XLS</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160569)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160569" 
			    			onmouseover="MM_swapImage('excluir160569','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161103</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			02/11/2016 à 
			02/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217235' 
        			target="_blank" id='217235'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217233' 
        			target="_blank" id='217233'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160568)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160568" 
			    			onmouseover="MM_swapImage('excluir160568','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="odd">
<td class="esquerda">Relatório Copel por POP - Hora_20161102</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			01/11/2016 à 
			01/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217190' 
        			target="_blank" id='217190'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217188' 
        			target="_blank" id='217188'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160534)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160534" 
			    			onmouseover="MM_swapImage('excluir160534','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr>
<tr class="even">
<td class="esquerda">Relatório Copel por POP - Hora_20161102</td>
<td class="esquerda">Relatório Copel por POP</td>
<td>
			01/11/2016 à 
			01/11/2016		
		</td>
<td>
			<div align="left">
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217191' 
        			target="_blank" id='217191'>XLS</a>&nbsp;
        	
 
        		<a href='/pms/RelatorioDisponivelViewServlet?id=217187' 
        			target="_blank" id='217187'>HTML</a>&nbsp;
        	
        	</div>
		</td>
<td>Concluído</td>
<td>COPEL</td>
<td>
		        <a href="#" onClick="exclui(160533)"
		        	title="Excluir Relatório"><img src="/pms/layouts/skinVoicePMS1/imagens/b_excluir_1.gif" name="excluir" width="18" height="20" 
			    			border="0" id="excluir160533" 
			    			onmouseover="MM_swapImage('excluir160533','','/pms/layouts/skinVoicePMS1/imagens/b_excluir_2.gif',1)" 
			    			onmouseout="MM_swapImgRestore()" 
			    			align="absmiddle"/>
		    	</a>
		    </td></tr></tbody></table><div class="pagebanner">Apresentando 1 a 20 de 6.507.</div><div class="pagelinks">[Primeiro/Anterior] <strong>1</strong>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2" title="Ir para a página 2">2</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=3" title="Ir para a página 3">3</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=4" title="Ir para a página 4">4</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=5" title="Ir para a página 5">5</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=6" title="Ir para a página 6">6</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=7" title="Ir para a página 7">7</a>, <a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=8" title="Ir para a página 8">8</a> [<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=2">Próximo</a>/<a href="/pms/relatorio/disponivel/listar-disponiveis.jsp?d-49300-p=326">Último</a>]</div>
	
 
  </form>
 
 
</div>
 
</body>
</html>
 
  


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.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Baixar dados - ultimo gerado - da Web.

Mensagem por Wagner.cwb »

Boa noite Pessoal!

voltei a pensar neste projeto, então tentei na lógica de buscar pela pagina todos os IDs e armazenar o "maior", porém
nao faço ideia de como fazer isto com integração web... por favor, podem iluminar o inicio do caminho?

Código: Selecionar todos

<td>
         <div align="left">
           
 
              <a href='/pms/RelatorioDisponivelViewServlet?id=217529'
                 target="_blank" id='217529'>XLS</a>&nbsp;


hercidio
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Jan 24, 2017 2:07 pm

Re: Baixar dados - ultimo gerado - da Web.

Mensagem por hercidio »

Olá, sou novo em VBA, mas gosto muito de programar em Excel.
Tenho acompanhado posts semelhantes, mas ainda não encontrei a solução do que procuro.
Venho aqui pedir ajuda de vocês, se for possível. Desde já agradeço o apoio.

Consigo gerar um scrip para acessar uma URL de um determinado aplicativo na WEB que gera relatórios.
Este código URL traz consigo um comando de download do tipo: "http://<...ip...>&file download = 1" e segue a sintaxe do desenvolvedor.
O código abaixo permite que minha macro acesse o site, mas não me deixa logar.
A tela de login é disparada pelo site antes de executar o loop do until.
Com isso, tenho sempre que informar os dados de login e senha manualmente e não automaticamente como pretendo.
Além do pop-up de login e senha, tenho que informar na página onde salvar o arquivo. Queria automatizar isto também.
Ou seja, abrir o site com login / senha conhecidos(1), fazer download para uma área pré-determinada(2) e ter o nome do arquivo salvo(3).
Sub x(page_url As String)
Dim ie As InternetExplorer
Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
redo:
' MyLogin = Application.InputBox("Por Favor entre com o Login", "Forum Tomás Vásquez", Default:="login", Type:=2)
' MyPass = Application.InputBox("Por favor entre com a senha", "Forum Tomás Vásquez", Default:="Password", Type:=2)
MyLogin = "xxx"
MyPass = "xxx"
If MyLogin = "" Or MyPass = "" Then GoTo redo
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate page_url

' Macro pára aqui, antes do loop do until. A tela de login e senha surge após o comando anterior, como se fosse um pop-up.

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.all("username").innerText = MyLogin
ie.Document.all("password").innerText = MyPass
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.all("username").form.all("login").Click

If ULogin = False Then MsgBox "Usuário logado"
Set ie = Nothing
End Sub


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