Excel SQL Query

[emre11]

Merhaba,

Excel den websiteye veri çekmek istiyorum. Excel sayfamda her zaman belli satır aralığındaki değerleri almak için query yazmak istiyorum. A kolununda 1 rakkamından 12 rakkamına kadar olan hücrelerin B ve D kolonundaki değerleri html ortamına nasıl yazdırabilirim (programlama dilim asp)? (1 rakkamı A kolonunun herhangi bir yerinde olabilir , ama peşinden gelen sayılar 12 ye kadar alt alta). Yardımcı olabilirseniz sevinirim..

Yazmaya çalıştığım kodun bir kısmı şu şekilde, sadece where kısmını yapamıyorum:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_
"Excel 8.0; DBQ=" & Server.MapPath("sqlexcel.xls") & "; "
strSQL = "SELECT * FROM A1:A10000"
Set objRS=objConn.Execute(strSQL)
Response.Write("<table border=""1"">")
Response.Write("<tr>")
For x=0 To objRS.Fields.Count-1
Response.Write("<th>" & objRS.Fields(x).Name & "</th>")
Next
Response.Write("</tr>")
Do Until objRS.EOF
Response.Write("<tr>")
For x=0 To objRS.Fields.Count-1
curValue = objRS.Fields(x).Value
If IsNull(curValue) Then
curValue="N/A"
End If
curValue = CStr(curValue)
Response.Write("<td>" & curValue & "</td>")
Next
Response.Write("</tr>")
objRS.MoveNext
Loop
objRS.Close
Response.Write("</table>")
objConn.Close

 

[Orion1]

SQL cümlesini aşağıdaki gibi yazın.
dosyayı ekledim.Ben sayfaya yaptım.Siz html dosyasına göre ayarlayınız.
onbinici satıra kadar bakr bu kodlar.2003 versiyonu için 10000 yerine tümü için 65536 yazın.

Sub html_59()
Dim objconn As Object, objRS As Object, strSQL As String, say As Long
Set objconn = CreateObject("ADODB.Connection")
objconn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=no;imex=1"";"
strSQL = "SELECT * FROM [Sayfa1$A1:B10000] where F1>=1 and F1<=12;"
Range("G:H").Clear
Set objRS = objconn.Execute(strSQL)
objRS.movefirst
Do While Not objRS.EOF And say <= 12
    say = say + 1
    Cells(say, "G").Value = objRS(0).Value
    Cells(say, "H").Value = objRS(1).Value
    objRS.movenext
Loop
Set objRS = Nothing
objconn.Close
Set objconn = Nothing
MsgBox "Veriler sayfaya G Ve H sütununa Çıkarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub