Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Exportar dados para o Excel Atualizado em 20/07/2007 ás 10:07:00

Postado em 20/07/2007 ás 10:07:00


Pessoal não estou conseguindo exportar dados da minha intranet para o Excel. aparece a seguinte mensagem:


Microsoft VBScript runtime error ’800a004c’

Path not found

/gaso/adm/gaso_exp.asp, line 41


 


Segue meu código


<html>
<head>
<title>Exportação de dados para o Excel</title>
<LINK REL=stylesheet HREF="..\..\..\heva.css" TYPE="text/css">
</head>
<body style="overflow:auto;">
<%

vmes = Request.Form("mes")
vano = year(Date)

sql = " TRANSFORM SUM(gas.tatend) AS qtde SELECT ccusto,area FROM gas WHERE ( ((MONTH([datafec])) = "&vmes&") AND ((YEAR([datafec]))= "&vano&") AND (situacaoid = 4) ) GROUP BY ccusto,area ORDER BY ccusto PIVOT gas.datafec "

sql1 = " SELECT datafec FROM gas WHERE mes = "&vmes&" AND ano = "&vano&" AND situacaoid = 4 GROUP BY datafec "

cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\..\helpdesk.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn,3,3

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql1, cn

if rs1.EOF then

%>
<script language="javascript">
{
alert("Não foi aberta nenhuma Ordem de Serviço no mês selecionado");
window.location.href="javascript:history.back()"
}
</script>
<%

else

arq_excel = "export/"&vano&"/mnt"&vmes&".xls"


set fso = CreateObject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(arq_excel), true) ’Cria o arquivo no servidor


act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr>")
act.WriteLine("<td>ccusto</td>")
act.WriteLine("<td>area</td>")

while not rs1.EOF
act.WriteLine("<td>" & Day(rs1("datafec"))& "</td>")
rs1.MoveNext
wend

Act.WriteLine("</tr>")
Act.WriteLine("<tr>")

while not rs.EOF
for vcampo = 0 to rs.Fields.Count - 1
act.WriteLine("<td>" & rs(vcampo) & "</td>")
next
rs.MoveNext
Act.WriteLine("</tr>")
wend

act.WriteLine("</table></body></html>")

act.close

response.Redirect ("gaso_exp2.asp?mes="+vmes)

End if

Set rs = Nothing
Set rs1 = Nothing
Set cn = Nothing


%>
</body>
</html>


A linha com o erro está em vermelho.


Agradeço



 


SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados