高级自动化技术,使用EXCEL代码:
使用EXCEL代码
工具>宏>录制新宏 …... 工具>宏>停止录制
接下来在宏产生的代码中给每个外部对象和属性添加合适的应用程序变量名,换句话说,因为宏所产生的代码中,对象和属性来自于EXCEL对象库,所以要让ACCESS知道这一点,做法是在这些对象与属性前面添加给EXCEL应用程序指定名字,如将Rang("A1").select编辑成xl.Range("A1").select因为xl是赋值给EXCEL应用程序的变量名.
添加应用程序变量名的对象和属性只能是未被更高层对象引用的对象或属性,例如:
Xl.Columns("A1").select
Xl.selection.columns.autofit
当ColumnS用作Selection对象属性时,不在它前面使用变量名XL
完成自动化报表,实现功能与EXCEL本身的功能一样多,如可创建图表,创建数据透视表,应用子汇总,用该方法能够在VBA中创建临时报表,然后在任何时候运行它,我们甚至能够添加过程中,为每个部门雇员客户实现同一个EXCEL报表的自动化.
因为自动化过程涉及保存最终EXCEL文件的宏代码,所以再次运行该文件时,EXCEL会抛出一个询问是否覆盖原有文件的消息,
如果想要禁止这些消息并且自动覆盖以前保存的文件,可以使用EXCEL的DisPlayAlerts 属性,DisPlayAlerts 类似于ACCESS中的Setwarning 方法,要禁止EXCEL的警告,在生成的代码前插入如下代码:
Xl.Application.DisplayAlerts = False
要重新打开警告,在生成宏的代码前面加上
Xl.Application.DisplayAlerts = True
