Ler XLS

[mkboy 1]

Há possibilidade do ASP ler um xls com tabelas pré definidas? :mellow:

 

Algum exemplinho por ai? http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[sr.silva 1]

Olá mkboy,Você quer ler um *.xls, pelo asp???Seria isso.Até.

[jrcardozo 4]

busca = http://forum.imasters.com.br/index.php?sho...3019&hl=xls

[mkboy 1]

Não estou conseguindo, fiz conforme o exemplo:

<%  Dim sSourceXLS	Dim sDestXLS	sDestXLS = Server.MapPath(".") & "\relatorio.xls"  ' caminho e nome do arquivo xls		Dim oConn	Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestXLS & ";Extended Properties=""Excel 8.0;HDR=NO;"""	Dim oRS 	Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls	oRS.Open "Select * from tb_xls", oConn, 1, 3 'executa o recordsetdo while not oRS.eof 'listando as celulas do arquivo  Response.Write(""&oRS.Fields(0).Value&" - "&oRS.Fields(2).Value&" - "&oRS.Fields(2).Value&"")'fields tem o numero da coluna do xls,  Response.Write("<br>")  oRS.movenextloopoRS.closeset oRS=nothing	oConn.Close	Set oConn = Nothing'Abra o xls vá em Menu-Inserir=>>Nome=>>Definir 'escolha o nome da sua seleção de celulas, esse nome é o mesmo que vai no sql, como se fosse o nome da tabela, no exemplo está como tabelaXLS%>

Criei um XLS e defini o nome como tb_xls (o nome do arquivo é relatorio.xls)E o erro que retorna é:

Microsoft JET Database Engine error '80004005' External table is not in the expected format. /ecommerce/testes/lerXLS/lerxls.asp, line 12

Podem ajudar? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif