TA的每日心情 | 奋斗 2014-12-18 10:31 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
使用ADO对EXCEL(97-2003)进行排序
'该方法的优点是不会改变EXCEL内容的实际排序,另外还可以根据实际需要直接查询所需数据
'EXCEL内容与输出结果见附件,以下代码是按username 倒序输出username,password
filepath="EXCEL路径" '这里输入EXCEL的实际路径
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath&";Extended Properties=Excel 8.0" '8.0为EXCEL97-2000
Set rs=CreateObject("ADODB.Recordset")
rs.Open "Select username,password from [Sheet1$] order by username desc",conn
Do
If not rs.eof Then
username=rs("username")
password=rs("password")
print "username:"&username&" password:"&password
rs.MoveNext
else
msgbox "没有记录"
End If
loop until rs.eof=true
conn.close
Set rs=nothing
Set conn = nothing
'EXCEL内容:
'若有问题,可以加MSN进一步讨论。MSN:yunkai614221@live.cn
[ 本帖最后由 feiyunkai 于 2010-8-2 16:59 编辑 ] |
|