Excel dosyasına bağlantı kodları ve excelde istenen sayfadaki verileri yazma, ilk satır alan adlarını gösterir.

<%
‘ EXCEL dosyasının ilk satırı alan adlarını gösterir… Bu örnekte alanlar AD, SOYAD dir.

strConnection = “DBQ=” & Server.MapPath(“dosya_adi.xls”) & “; DRIVER={Microsoft Excel Driver (*.xls)};”

Set cn = Server.CreateObject(“ADODB.Connection”)
Set rs = Server.CreateObject(“ADODB.Recordset”)
cn.open strConnection
sql=”select * from [kitap1$]”
rs.Open sql, cn, 1,3
%>
<%

do while not rs.eof

response.write(rs(“AD”)&”&nbsp;”&rs(“SOYAD”)&”<br>”)
rs.movenext
loop

rs.close
Set rs = nothing
cn.close
Set cn = nothing

Reklamlar