Er der nogen der har en kode liggende, som kan hente alle data fra et excel ark og vises i ASP. Her er koden jeg er kommet frem til, men den henter ikke alle data.
ConE.Open Connectionstring Set Com = Server.CreateObject("ADODB.Command") Com.ActiveConnection = ConE Com.CommandText = "SELECT * FROM [" & sheetName & "] " Set Rec = Server.CreateObject("ADODB.Recordset") Rec.Open Com,,3,3
' Skriv ud headere Response.Write( "<table border=""1""><tr>" ) For i = 0 To Rec.Fields.Count - 1 Response.write "<td>" & Rec.Fields.Item(i).Name & "</td>" Next
Rec.MoveFirst 'Skriv ud værdier Response.Write("<tr>") While Not Rec.EOF Response.Write("<td><table>") For j = 0 To Rec.Fields.Count - 1 Response.write("<tr><td>" & Rec.Fields.Item(j).Value & "</td></tr>") Next Rec.MoveNext Response.Write("</table></td>" ) Wend Response.write( "</tr></table>" )
Jeg har testet koden, og den giver det samme resultat som min kode. Problemet er faktiskt, at koden udskriver de data som er mest af (integer eller string), hvis der er f.esk. (100065,E547389,476392) i rækkerne, så udskriver asp koden kun 100065,,476392 og ikke strengen.. hvorfor det..
jeg forstår ikke hvad du mener med "at koden udskriver de data som er mest af (integer eller string), hvis der er f.esk. (100065,E547389,476392) i rækkerne, så udskriver asp koden kun 100065,,476392 og ikke strengen"
der er ikke noget i koden der tester indholdet i en kolonne, så at koden "udskriver de data som er mest af" giver ingen mening for mig.
hmm ... øv .... det kan jeg godt se nu :-| underligt ...
jeg testet på et ark, som jeg har vist for oven (Overskrift 1, Overskrift 2 osv) og det fungere "perfekt". Mon ikke det har noget med måden jeg hiver fat i cellerne på.
JEg har desværre ikke tid til at kigge på det lige nu, men jeg skal nok kigge på det i løbet af dagen
/nute
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.