计算机应用-12技术总结.ppt

Excel与数据处理 第3版;认识;本章学习目标;12.1 宏;12.1.1 录制宏;12.1.1 录制宏;12.1.1 录制宏;12.1.1 录制宏;12.1.1 录制宏;12.1.2 编辑查看录制宏;12.1.2 编辑查看录制宏;12.1.2 编辑查看录制宏;12.1.2 编辑查看录制宏;12.1.2 编辑查看录制宏;12.1.3 宏的安全性设置;12.1.3 宏的安全性设置;12.1.3 宏的安全性设置;12.1.4 宏的保存;12.1.5 宏的执行;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2 VBA程序设计基础;12.2.2 数组;12.2.3 对象、属性和方法;12.2.3 对象、属性和方法;Excel对象示例;12.2.3 对象、属性和方法;12.3 子程序;12.3 子程序;12.3 子程序;12.4 自定义函数;12.4 自定义函数;12.4 自定义函数;12.4 自定义函数;12.4 自定义函数;12.4 自定义函数;12.5 VBA选择结构;12.5.1 条件语句;12.5.1 条件语句;12.5.1 条件语句;12.5.1 条件语句;12.5.1 条件语句;12.5.1 条件语句;12.5.2 分情况选择语句;12.5.2 分情况选择语句;12.5.2 分情况选择语句;12.5.2 分情况选择语句;12.5.2 分情况选择语句;12.6 VBA循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.1 For循环结构;12.6.2 While…Wend循环结构;12.6.3 Do…Loop循环结构 ;12.6.3 Do…Loop循环结构;12.6.3 Do…Loop循环结构;12.6.3 Do…Loop循环结构;12.6.4 数组在循环中的应用;12.6.4 数组在循环中的应用;12.6.4 数组在循环中的应用;12.7 模块与变量的作用域;12.7 模块与变量的作用域;12.7 模块与变量的作用域;12.7 模块与变量的作用域;12.7 模块与变量的作用域;12.7 模块与变量的作用域;12.8 VBA自动宏;12.8 VBA自动宏;12.8 VBA自动宏;12.9 VBA与数据库应用实例;12.9.1 数据库接口ADO;12.9.1 数据库接口ADO;12.9.1 数据库接口ADO;12.9.1 数据库接口ADO;12.9.2应用ADO从数据库查询数据到Excel中 ;【例12.13】某学校的图书借阅系统是一个Access数据库，数据库的名称是“图书借阅.MDB”，其中有一读者数据表，如图12.30所示。设计一个数据导入宏ImportMdbData，将读者数据表中的读者信息导入到Excel工作表中。;在Excel中建立一个工作薄，并将“图书借阅.MDB”数据库复制此工作薄所在的文件夹中。然后在VBA编程环境中为该工作薄插入一个模块，在该模块中输入ImportMdbData宏的程序代码，如下所示。;Sub ImportMdbData() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strsql As String cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data source= ThisWorkbook.Path \图书借阅.mdb strsql = select * from 读者 rst.Open strsql, cnn 通过Cnn连接，执行strsql中的Select语句 For i = 1 To rst.Fields.Count Sheet1.Cells(1, i) = rst.Fields(i - 1).Name Next i Sheet1.Range(A2).CopyFromRecordset rst rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing End Sub;【例12.14】某公司