Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilberto Jr

Versão do aquivo Excel

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

Boa tarde.

 

Eu estou gerando o arquivo execel com o seguinte código.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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=utf-8" />
<title>Documento sem título</title>
</head>

<body>


<%
function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia &" "&time
end function


response.Write(replace(replace(replace(mask_data(Date),"-","")," ",""),":",""))


Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename="&replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".xlsx"

dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=186.202.152.38;PORT=3306;DATABASE=tecnogalli2;USER=*****;PASSWORD=db211613;OPTION=3;")
	'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

set rs = conn.execute("select * from arquivo")	

'set rs = conn.execute("select * from produtos where id < 20 ")

%>
<TABLE BORDER=1>
<TR>
<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to rs.fields.count - 1
%>
<TD><% = rs(i).name %></TD>
<% next %>
</TR>
<%

'Percorre cada linha e exibe cada campo da tabela

while not rs.eof
%>
<TR>
<% For i = 0 to rs.fields.count - 1
%>
<TD VALIGN=TOP><% = rs(i) %></TD>
<% Next %>
</TR>
<%
rs.MoveNext

wend

rs.Close
conn.close
%>
</TABLE>
</body>
</html>

Só que na hora de salvar esta salvando no seguinte formato "xls" e eu queria colocar pra salvar no formato "xlax" que é no formato mais novo.

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual a versão do Excel que tem na maquina....

Pois eu tenho o 2010 e 2013, sendo que o 2013 é o programa padrão para abrí-lo então ele salva como .xlsx (padrão para 2010 e 2013) e abre no 2013.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

no 2007 ele usa extensão .xls

se vc tiver o 2010 ou 2013 a extensão já é .xlsx

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

isso, de acordo com a extensão do sft. padrão atribuído pelo SO

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito