Conectar à um arquivo do EXCEL, e mostrar conteudo na tela

[dark0]

Conectar à um arquivo do EXCEL, e mostrar conteudo na tela!

Obs: Importa e ve na tela os dados que foram inseridos.

<%

set Cmd=server.CreateObject("ADODB.COMMAND")

Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/sistema/BD.mdb"%>

<%

Dim Conn, RS

Dim Campos, contador

'// CONECTAMOS COM O BANCO DE DADOS

Set Conn = CreateObject("ADODB.Connection")

With Conn

.Provider = "Microsoft.Jet.OLEDB.4.0"

'// Nesta linha perca que a conexão indica que utilizaremos um arquivo do Excel

.ConnectionString = "Data Source="& Server.MapPath("arquivoexcel.xls") &";Extended Properties=Excel 8.0;"

.Open

End With

'// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO

Set RS = Conn.Execute("SELECT * FROM [Plan1$] ")

'// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO

Campos = RS.Fields.Count

'// INICIAMOS O LOOP

response.write "<table border=""1"">"

Do While RS.EOF = False

response.write "<tr>"

'// Aqui informamos os nomes das colunas para então lista os resultados

response.write "<td><font size=1 face=verdana><b>" & RS("c1") & "</td>"

response.write "<td><font size=1 face=verdana><b>" & RS("c2") & "</td>"

response.write "<td><font size=1 face=verdana><b>" & RS("c3") & "</td>"

response.write "<td><font size=1 face=verdana><b>" & RS("c4") & "</td>"

response.write "<td><font size=1 face=verdana><b>" & RS("c5") & "</td>"

response.write "<td><font size=1 face=verdana><b>" & RS("c6") & "</td>"

response.write "</tr>"

vc1 = RS("c1")

vc2 = RS("c2")

vc3 = RS("c3")

vc4 = RS("c4")

vc5 = RS("c5")

vc6 = RS("c6")

cmd.CommandText="insert into tabela (c1,c2,c3,c4,c5,c6) values (?,?,?,?,?,?)"

Cmd.Execute quant,Array(vc1,vc2,vc3,vc4,vc5,vc6)

RS.MoveNext

Loop

response.write "</table>"

'// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS

response.write campos

'// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

%>

<%set Cmd = nothing%>

Essa dica foi postada por RobertoPizza , e está nesse tópico: http://scriptbrasil.com.br/forum/index.php...ndpost&p=117353

Até mais!