Mail atmıştım zaten cevap bekliyorum
Rica ederim bir önceki mesajımda belirttiğim gibi csv'yi önerdi hocamız
Hocam Bana Kargodan Gelen Veriler Excel Formatında Olduğundan Bu İşlemi Yapamıyordum Gümlük Min 8000 Ürün satışı Var Kargo Biriminin İşini Otomatik yapmak İçin gerekliydi sorunu çözdüm benzer sorunu yaşayanlar olabilir diye kodlarıda aşağıda vereyim.
<%
' EXCEL dosyasýnýn ilk satýrý alan adlarýný gösterir... Bu örnekte alanlar AD, SOYAD, TEL...
abdulkadir = "DBQ=" & Server.MapPath("deneme.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"
Set abdul = Server.CreateObject("ADODB.Connection")
Set kocer = Server.CreateObject("ADODB.Recordset")
abdul.open abdulkadir
sql="select * from [Sheet$]"
kocer.Open sql, abdul, 1,3
%>
<table border="1" width="91%" id="table1" bordercolor="#000000" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td><b>AD</b></td>
<td><b>SOYAD</b></td>
<td><b>TEL</b></td>
<td><b>ADRES</b></td>
<td><b>WEB</b></td>
<td><b>MAIL</b></td>
</tr>
<%
do while not kocer.eof
%>
<tr>
<td><%=kocer(1)%> </td>
<td><%=kocer(2)%> </td>
<td><%=kocer(3)%> </td>
<td><%=kocer(4)%> </td>
<td><%=kocer(5)%> </td>
<td><%=kocer(6)%> </td>
</tr>
<%
kocer.movenext
loop
kocer.close
Set kocer = nothing
abdul.close
Set abdul = nothing
%>
</table>