-
Content count
4827 -
Joined
-
Last visited
Community Reputation
4 ComumAbout Jonathan Cardozo

-
Rank
Jonathan Cardozo
- Birthday 04/12/1981
Informações Pessoais
-
Sexo
Masculino
-
Localização
{Guaíba}{RS}
Contato
-
Site Pessoal
http://www.sersolucao.com.br
-
Se ainda necessita do serviço, tenho disponibilidade e posso fazer um orçamento assim que passar mais características das funcionalidades desejadas.
-
Jonathan Cardozo started following digoleonardi
-
digoleonardi started following Jonathan Cardozo
-
Jonathan Cardozo started following Marcelo Antonio_118277
-
Marcelo Antonio_118277 started following Jonathan Cardozo
-
Daniel1 started following Jonathan Cardozo
-
Jonathan Cardozo started following Daniel1
-
Jonathan Cardozo started following ruty
-
ruty started following Jonathan Cardozo
-
Robson Martins started following Jonathan Cardozo
-
Lendo XLS dinâmico para visualização em tela
Jonathan Cardozo replied to Jonathan Cardozo's topic in ASP Clássico
Possivelmente são células mescladas -
Lendo XLS dinâmico para visualização em tela
Jonathan Cardozo replied to Jonathan Cardozo's topic in ASP Clássico
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
-
Lendo XLS dinâmico para visualização em tela
Jonathan Cardozo replied to Jonathan Cardozo's topic in ASP Clássico
beleza cara....lembrando que podem ocorrer erros, mas acho que é uma boa base pra galera -
Lendo XLS dinâmico para visualização em tela
Jonathan Cardozo replied to Jonathan Cardozo's topic in ASP Clássico
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