使用ado自动化组件连接Excel，运行查询语句

很多情况下，ado往往是用来处理数据库的，但其实它同样也可以处理excel，因为excel带有数据源，只要有数据源就可以使用ado来进行自动化控制。来看一下例子：

表：

username[列名]
QTP
xifeijian
China

脚本：

‘强制变量声明
Option Explicit
‘声明conn数据库链接对象和rs结果集对象
Dim conn,rs
‘声明数据库链接字符串
Dim connectionString : connectionString =”DSN=Excel Files;DBQ=D:\xifeijian.xls;”
‘声明sql执行语句
Dim sqlString : sqlString = “select * from [Sheet1$]”
‘创建ado组件对象
Set conn = CreateObject(“adodb.connection”)
‘打开数据库
conn.Open connectionString
‘执行sql语句并获得结果集
Set rs = conn.Execute(sqlString)
‘遍历结果集中的username字段的数据
While Not rs.EOF

 MsgBox rs.Fields(“username”).Value
rs.MoveNext
Wend
‘关闭结果集
rs.Close
‘关闭数据库
conn.Close

‘释放对象
Set sqlString = Nothing
Set connectionString = Nothing
Set rs = Nothing
Set conn =Nothing