求操作excel的代码

[付剑在哪]

如何把excel中的某几列数据写到另外的excel表对应的位置中，并且对数据做些简单处理，比如大于5的就显示红色？

[lovebanyi]

晕了..还以为是简单的.可以挣分..又不会了

[hhjjhjhj]

这问题怎么到这里来问，不是有VBA版和OFFICE开发版块。

[3q2008Com]

我有一个是写到EXCEL里的
dim conn
set conn=server.createobject("ADODB.connection")
conn.open SQL
set rste=server.createobject("adodb.recordset")
rste.open "select * from outline ",conn,3,2
count=rste.recordcount

dim rs,sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")

if application("file_no")="" then
application("file_no")=1
else
application("file_no")=application("file_no")+1
end if

filename = "d:\web\cneuol_outline_copy"&application("file_no")&".xls"
set myfile = fs.CreateTextFile(filename,true)
set rse=server.createobject("adodb.recordset")
rse.open "select * from outline",conn,3,2
if rse.EOF and rse.BOF then
else
dim strLine,responsestr
strLine=""

For each x in rse.fields
strLine= strLine & x.name & chr(9)
Next

myfile.writeline strLine
strLine=""

Do while Not rse.EOF
strLine= strLine & rse("outl_no") & chr(9)& rse("cometime") & chr(9)& rse("lefttime") & chr(9)& rse("usr_name") & chr(9)& rse("ip") & chr(9)& rse("usr_kind") & chr(9)& rse("usr_id") & chr(9)
myfile.writeline strLine
strLine=""
rse.delete
rse.update
rse.MoveNext
loop
end if
rste.close
rse.close

[mymyal123]

不用ASP更好搞定