计算机应用-12讲解.ppt

12.9.2应用ADO从数据库查询数据到Excel中 编写好ImportData宏后，只要运行它就可以直接从外部数据库中把指定年份和月份的工资数据查询到当前工作薄中，并以工资数据的年份和月份命名工作表中。在执行ImportData宏时，首先会弹出图12.33（a）所示的InputBox对话框，在其中输入查询工资的年和月后，ImportData宏就会查询该工作薄中是否有该月份工资数据的工作表，如果没有从当前Apsd.accdb数据库中查询，并将查询结果保存在以工资数据的年份和月份命名的工作表中，如图12.33(b)所示。 12.9.2应用ADO从数据库查询数据到Excel中 编写宏“Sub 分析数据”分析本月工资和上月工资表中的数据，形成需要的分析数据，并保存在数组中。 编写计算百分比的宏“sub 计算百分比”，用于计算两月各项数据对比后的增加百分比。 编写输出数据的宏“Sub 输出结果”，用于将保存在数组中的计算结果输出到Excel工作表中。 另外，还有一个供其它宏调用的计算人数的宏“计算人数” 各宏之间通过数组传递数据。 在一个工作表中建立调度上述宏的菜单或命令按钮。 12.9.2应用ADO从数据库查询数据到Excel中 通过宏作出的分析报告 12.9.2应用ADO从数据库查询数据到Excel中 总控工作表 The End 12.6.1 For循环结构 下面的宏将关闭活动工作薄之外的所有打开工作薄。 Sub closeWorkbook() Dim w As Workbook For Each w In Workbooks If w.Name ActiveWorkbook.Name Then w.Close Next End Sub 12.6.1 For循环结构 【例12.8】用For Each循环设计一个Sub过程，计算工作表中任意选定区域的数据总和，如图12.22所示。 12.6.1 For循环结构 求任意区域总和的宏如下 Sub sumSelection() For Each x In Selection s = s + x Next MsgBox s End Sub 12.6.2 While…Wend循环结构 在事先知道循环次数时，用For循环方便。如果事先并不知道循环次数，但知道执行或结束循环的条件，则用Do…Loop循环或While…Wend循环。 While循环的语法结构如下 While 判定条件 语句1 语句2 …… Wend 12.6.3 Do…Loop循环结构 3 Do…Loop循环结构 第一种结构为： Do While 判定条件 …… Loop 第二种结构为： Do …… Loop While 判定条件 第三种结构为： Do Until判定条件 …… Loop 第四种结构为： Do …… Loop Until 判定条件 12.6.3 Do…Loop循环结构 案例 【例12.9】在上节的For循环实例中，假设并不知道有多少位职工，在其他条件都相同的条件下，现用While…Wend循环结构来计算每位职工的住房公积金比例、应交公积金和实际发放工资。 改写的函数如下 12.6.3 Do…Loop循环结构 用While循环改定的函数 Sub CountDataB() i = 3 第1位职工在第3行 While Not (IsEmpty(Cells(i, 2))) ‘从工作表的第3行开始计算 r = countrate(Cells(i, 2)) 计算出第i位职工的公积金比例 Cells(i, 3) = r 把第i位职工的公积金比例填入本行的第3列中 Cells(i, 3).Style = Percent 把公积金比例的格式设置为百分比 Cells(i, 4) = r * Cells(i, 2) 计算第1位职工的公积金并填入本行的第4列中 Cells(i, 5) = Cells(i, 2) - Cells(i, 4) 计算第i位职工的应发工资并填入本行第5列中 i = i + 1 计算下一位职工的公积金 Wend End Sub 12.6.3 Do…Loop循环结构 用do循环改写的函数 Sub CountDataC (