ExcelVBA视频教程15使用ADO操作外部数据王佩丰MVP微软最有价值专家MCT微软认证讲师议程使用ADO连接外部Excel数据源常用SQL语句使用ADO连接ACCESS数据库课程小结及课后练习使用ADO连接外部Excel数据源连接步骤:1在VBE界面中工具—引用勾选MicrosoftActiveXDataObjectx.xLibrary2连接代码Subtest()DimconnAsNewADODB.Connectionconn.Open"Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\data\data.xlsx;extendedproperties=""excel12.0;HDR=YES"""‘这里使用SQL对数据进行操作conn.CloseEndSub使用ADO连接外部Excel数据源抓取数据:Range(“a1”).CopyFromRecordsetconn.Execute(“select*from[data$]”)常用SQL语句查询数据select*from[data$]查询某几个字段select姓名,年龄from[data$]带条件的查询select*from[data$]where性别="男“合并两个表的数据select*from[data$]unionallselect*from[data2$]插入新纪录insertinto[data$](姓名,性别,年龄)values('AA','男',33)常用SQL语句修改一条数据update[data$]set性别=‘男’,年龄=16where姓名=‘张三‘删除一条数据deletefrom[data$]where姓名='张三'使用LEFTJOIN…ON…(类似于VLOOKUP)select[data3$].姓名,性别,年龄,月薪from[data$]leftjoin[data3$]on[data$].姓名=[data3$].姓名先UNIONALL再LEFTJOINselect*from(select*from[data$]unionallselect*from[data2$])aleftjoin[data3$]ona.姓名=[data3$].姓名将查询结果赋值到数组arr=Application.WorksheetFunction.Transpose(conn.Execute("select*from[data$]").GetRows)使用ADO连接ACCESS数据库连接步骤:1在VBE界面中工具—引用勾选MicrosoftActiveXDataObjectsx.xLibrary2连接代码Subtest()DimconnAsNewADODB.Connectionconn.Open"Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\data\Adata.accdb"‘这里使用SQL对数据进行操作conn.CloseEndSub课程小结需要理解并记住写法的概念需要理解的概念select*from[data$]CONN.OPEN.EXECUTE.CLOSEADO与打开文件做操作的差别和不同的应用场景理解Ado连接代码的意义了解SQL语句课后练习Excel库存管理系统问题:作业表中完成数据查询要求:共2440行数据。ThankYou