Jonathan Cardozo

Se ainda necessita do serviço, tenho disponibilidade e posso fazer um orçamento assim que passar mais características das funcionalidades desejadas.

Possivelmente são células mescladas

valeu a contribuição DragonBR, bom saber que o pessoal está usando e adaptando os codigos postados, certamente vão aproveitar a sua dica

hehehevaleu pela lembrança....anota ai Diminas que pago quando puder hehehe, ou seja...nuncaagora com o novo trabalho não terei tanto tempo pra chegar no boteco, mas sempre que puder passo aqui pra dar uma bisbilhotada hehehabração

ae diminas, parabéns...agora não pode beber em serviço....vai ter que abdicar da cevaabraço

beleza cara....lembrando que podem ocorrer erros, mas acho que é uma boa base pra galera

Ae Ted, pra quem quiser baixa o arquivo usado nos testes http://www.allmarketweb.com/pasta.xls apenas uma correção trocar for j = 0 to objTable.tables.count - 2 para for j = 0 to objTable.tables.count - 1

Quem já se quebrou pra ler um xls?? E quem ai precisa ler o xls sem saber a quantidade nem o nome das planilhas, linhas e colunas de cada planilha do arquivo?? Quer mais? Não precisa definir uma área (name) das células Segue a solução que criei adaptada de códigos retirados aqui do fórum com uma pitada de meu modesto conhecimento em Asp: ASP <%@Language="VBScript"%><% 'Autor : Jonathan R. Cardozo (jonathandj) 'Data criação : 14/08/2007 'Finalidade : Leitura de arquivo XLS (Excel 8.0) de forma dinâmica Dim intColunas, intLinhas Dim objConn, objRs, objTable Set objConn = Server.CreateObject("ADODB.Connection") With objConn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source="& Server.MapPath("pasta.xls") &";Extended Properties=Excel 8.0;" .Open End With Set objTable = Server.CreateObject("ADOX.Catalog") objTable.ActiveConnection = objConn for j = 0 to objTable.tables.count - 1 if lcase(objTable.tables(j).Type) = "table" Then set objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorLocation = 3 objRs.Open "SELECT * FROM ["&Cstr(Ucase(objTable.tables(j).Name))&"] ",objConn intCount = 0 if Not objRs.Eof Then intColunas = objRs.Fields.Count Response.Write ("<table border=""1"">" & vbNewline) If intCount = 0 Then Response.Write ("<tr>" & vbNewline) For i = 0 To (intColunas-1) Response.Write ("<td><font size=""1"" face=""verdana""> " & objRs.Fields(i).Name & "</td>" & vbNewline) next Response.Write ("</tr>" & vbNewline) End If Do While Not objRs.Eof Response.Write ("<tr>" & vbNewline) For i = 0 To (intColunas-1) Response.Write ("<td><font size=""1"" face=""verdana""> " & objRs.Fields(i).Value & "</td>" & vbNewline) Next response.write ("</tr>" & vbNewline) objRs.MoveNext Loop Response.Write ("</table>" & vbNewline) Response.Write ("Nome da Tabela(Planilha):" & Cstr(Ucase(objTable.tables(j).Name)) & vbNewline) Response.Write ("<br/>" & vbNewline) Response.Write ("Total Colunas: " & intColunas & vbNewline) Response.Write ("<br/>" & vbNewline) Response.Write ("Total Linhas: " & objRs.RecordCount +1 & vbNewline) ' o +1 é por causa da primeira linha que é o name da coluna End If objRs.Close Set objRs = Nothing Response.Write ("<br/>") Response.Write ("<br/>") end if next objConn.Close Set objConn = Nothing Set objTable = Nothing %> Lembrando que esse código não insere no banco, se tiver tempo faço e posto aqui a versão para gravar no DB Espero que seja útil para alguem