数据自动导出多个Excel或者多个工作表-Access经典源码剖析

  经典源码剖析系列 数据自动导出多个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搜索： 搜索服务）