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

文章由Byrx.net分享于2019-03-22 11:03:10评论（519）

很多情况下，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

热门文章：