초록별사랑

set objxls=createobject('adodb.connection')

With objxls
.Provider = 'Microsoft.Jet.oledb.4.0'
.Properties('Extended Properties').Value = 'Excel 8.0; HDR=NO; IMEX=1;'
.Open FileName
End With

set objRs = objxls.OpenSchema(20) '파일명 알아오기

If Not objRs.EOF Then
SheetName = objRs(2)
End If
objRs.close
set objRs = Nothing

sql = 'select * from [' & SheetName & ']'

set objRs = server.createobject('adodb.recordset')
objRs.open sql, objxls, 1, 3

If Not objRs.EOF Then
For Index = 0 To nRow - 2 '수정할 열이 나올 때까지 루프
objRs.MoveNext
Next

Response.Write objRs.Fields(CInt(nCol)).Value
objRs.Fields(CInt(nCol)).Value = nVal
End If

objRs.Close
set objRs = Nothing

출처 : http://www.devpia.com/Forum/BoardView.aspx?no=125111&ref=125111&forumname=WWW_QA&stype=&KeyW=%bf%a2%bc%bf+%c0%d0%b1%e2&KeyR=titlecontent