Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
![]() | 主题:Access数据自动导出多个Excel或者工作表-高手之路 听课人数:70多人 |
![]() | 主讲:王宇虹 演讲时间:2014-11-26 15:30 至 2014-11-26 16:30 and 2014-12-03 15:30 至 2014-12-03 16:30 |
![]() | 讲课内容简介: Access培训报名: http://www.office-cn.net/thread-118946-1-1.html |
讲解excel与Access的交互内容,通过操作access,可以非常方便地实现access操作excel表格,可以快速导入导出excel数据。同时对excel批量统计生成报表打印。生成大量的邮寄标签寄发给用户 | |
培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件 培训 | |
培训目标:让你 听得懂 学得会 记得住 用得上 要求:有一定的Access 或 VBA的基础 |
Access数据自动导出多个Excel或者工作表 |
自动批量生成excel报表
自动汇总统计表格信息
自动导出到excel
同时导出到汇总列表
导出到工作表
自动生成EXCEL报表
生在大量的邮寄标签
批量生成报表发送给客户
经典源码剖析系列 数据自动导出多个EXCEL或多个工作表 Office中国-王宇虹
1 应用场景
1.1 自动生成EXCEL报表
1.2 生在大量的邮寄标签
1.3 批量生成报表发送给客户
2 模块 源码剖析
2.1 导出格式模板文件
2.1.1 Tpl.xlt
2.2 模板文件不存在,请先确保模板文件是否被误删除了
2.3 导出前先清空目标目录
2.3.1 Output
2.3.1.1 输出目录不存在,请先手工创建
2.3.2 正在清空目标文件夹的旧xls文件
2.3.2.1 循环所有文件
2.3.2.2 如果存在则删除
2.3.2.2.1 Kill CurrentProject.Path & "\Output\" & strFile
2.3.2.2.2 如果被删除的文件正在被打开
2.3.2.2.2.1 Err.Number = 70
2.3.2.2.2.2 你可能正在打开Output目录下生成的EXCEL文件或其它Excel文件
2.4 打开excel对象
2.4.1 是否显示出来
2.4.1.1 If FShowExcelApp.Value <> 0 Then objExl.Visible = True End If
2.4.2 禁止EXCEL弹出警告信息
2.4.2.1 objExl.DisplayAlerts = False
2.4.3 如果EXCEL对象未打开,就先创建
2.4.3.1 CreateObject("Excel.APPLICATION")
2.5 把汇总的数据逐条写入到excel
2.5.1 打开源数据集
2.5.1.1 rsTotal.Open "select * from tblTotal order by FMark Desc,FID"
2.5.2 处理方式
2.5.2.1 FMultiXlsFiles
2.5.2.1.1 多个EXCEL文件
2.5.2.1.1.1 \Output\File" & lngFileNo & ".xls
File1
File2
File3
File4
2.5.2.1.2 一个EXCEL文件,多工作表
2.5.2.1.2.1 Output\FileAll.xls
2.5.3 判断是否达到20条
2.5.3.1 If lngSeqNo Mod 20 = 0
2.5.3.1.1 取余数
2.5.3.2 1.产生一个新的XLS文件
2.5.3.3 2.创建一个新的工作表
2.5.3.3.1 复制模板格式到第2个工作表
2.5.3.3.2 改名 报关单1
2.5.4 一直循环到处理完所有的数据
2.5.5 如果是多XLS文件 方式,把当前的XLS关闭
2.6 在界面上显示处理的进度
2.6.1 友好性
2.7 提示生成完成,是否打开目标文件夹
2.7.1 用户体验
2.8 在界面上显示处理完毕
2.9 打扫现场
2.9.1 对象关闭
2.9.1.1 把整个EXCEL文件及对象关闭
2.9.1.1.1 不关闭,对象 内存没有释放
2.9.2 释放内存
2.9.3 原来的设置要还原
2.9.3.1 打开警告信息显示开关
2.9.3.1.1 objExl.DisplayAlerts = False
3 知识点
3.1 CreateObject
3.2 Excel.Application
3.3 Workbooks
3.3.1 工作簿集合
3.3.1.1 WorkBook
3.3.1.1.1 Worksheets
3.3.1.1.1.1 工作表集合
Worksheet
Cells单元格集合
CELL
3.3.2 有10个workbook
3.4 Me.Repaint
3.4.1 显式刷新
3.4.2 Doevents
3.5 objWb.SaveAs
3.5.1 另存为
4 程序要求
4.1 准确性
4.2 友好性
4.2.1 用户体验
4.2.1.1 用户满意度高
4.3 优化
4.4 稳定性
4.5 安全性
1. 直接超值购买:
包含:Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件 绝对低价超值
2. 购买前咨询:
在线咨询QQ:1918333016
企业热线QQ:4008553990 (使用QQ搜索: 搜索服务)