SQl no Excel

[a.crow 0]

Tenho que fazer uma consulta num arquivo Excel, os detalhes:- Ele tem várias páginas (só uma me importa)- Os nomes dos campos contém espaço (são gerados sozinhos, não tenho como mudar isso)Existe um meio de fazer essa consulta? Como fica a SQL ?Obrigado!

[cybermix 0]

ai vai o exemplo de uma conexao a um arquivo xls

 

<%       Set objConn = Server.CreateObject("ADODB.Connection")       objConn.Open "ADOExcel"       Set objRS = Server.CreateObject("ADODB.Recordset")       objRS.ActiveConnection = objConn       objRS.CursorType = 3                           objRS.LockType = 2                             objRS.Source = "Select * from myRange1"       objRS.Open%><%     Response.Write("Original Data") ' Imprimindo     Response.Write("<TABLE><TR>")     For X = 0 To objRS.Fields.Count - 1        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")     Next     Response.Write("</TR>")     objRS.MoveFirst     While Not objRS.EOF        Response.Write("<TR>")        For X = 0 To objRS.Fields.Count - 1           Response.write("<TD>" & objRS.Fields.Item(X).Value)        Next        objRS.MoveNext        Response.Write("</TR>")     Wend     Response.Write("</TABLE>")     'Atualizando     objRS.MoveFirst     objRS.Fields(0).Value = "change"     objRS.Fields(1).Value = "look"     objRS.Fields(2).Value = "30"     objRS.Update     'Imprimindo valores atualizados     Response.Write("<br>Data after the update")     Response.Write("<TABLE><TR>")     For X = 0 To objRS.Fields.Count - 1        Response.Write("<TD>" & objRS.Fields.Item(X).Name & "</TD>")     Next     Response.Write("</TR>")     objRS.MoveFirst     While Not objRS.EOF        Response.Write("<TR>")        For X = 0 To objRS.Fields.Count - 1           Response.write("<TD>" & objRS.Fields.Item(X).Value)        Next        objRS.MoveNext        Response.Write("</TR>")     Wend     Response.Write("</TABLE>")     objRS.Close     Set objRS = Nothing     objConn.Close     Set objConn = Nothing%>

[a.crow 0]

acabei conseguindo de um modo prático:

 

Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("univercidade.xls") &";" & "Extended Properties=""Excel 8.0;HDR=Yes;"";"Strsql = "Select * from [tabela$]"Set RS = Conn.Execute(strsql)