1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim sConnectionString
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CHEMIN\test.xls;Extended Properties=Excel 8.0;"
set objConn = server.createobject("ADODB.Connection")
objConn.Open sConnectionString
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM [Sheet1$]",objConn
response.write "nb champs = " & rs.fields.count & "<br>"
response.Write("<table>" + Chr(13) + Chr(10))
for i= 0 to rs.fields.count-1
response.write ("<th>" & rs.fields(i).name & " </th>" + Chr(13) + Chr(10))
next
while not rs.eof
response.Write("<tr>" + Chr(13) + Chr(10))
for i= 0 to rs.fields.count-1
response.write ("<td>" & rs.fields(i).value & " </td>" + Chr(13) + Chr(10))
next
response.Write("<tr>" + Chr(13) + Chr(10))
rs.movenext
wend
response.Write("</table>" + Chr(13) + Chr(10))
rs.close
set rs = nothing
set objConn = nothing |
Partager