使用ADO连接外部Excel数据源
1 在VBE界面中 工具—引用
勾选Microsoft ActiveX Data Object x.x Library
2 连接代码
Sub test()
Dim conn As New ADODB.Connection
conn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel 12.0;HDR=YES”""
’这里使用SQL对数据进行操作
conn.Close
End Sub
常用SQL语句
查询数据
select * from [data$]
查询某几个字段
select 姓名,年龄 from [data$]
带条件的查询
select * from [data$] where 性别 = "男“
合并两个表的数据
select * from [data$] union all select * from [data2$]
插入新纪录
insert into [data$] (姓名,性别,年龄) values (‘AA’,‘男’,33)
修改一条数据
update [data$] set 性别=‘男’,年龄=16 where 姓名=‘张