3.4.2 动态加载并运行宏代码
稍微有点Excel基础的应该都会知道Excel本身有一个相当强大的功能,那就是宏,在英文版里称为“Macro”,其实不止Excel中有,Office中的几乎所有产品都带有宏这个功能,宏的作用就是可以让用户自行定义一些操作,并且通过计算机进行自动化,省去用户很多繁琐重复的操作。为什么要在此处提到宏的概念呢,看一下实例就明白了。
(1)沿用上一小节,打开D盘中的1.xls文件,打开后直接按下快捷键Alt + F11,打开宏代码编辑器,并双击左边的Sheet1打开Sheet1库,并在右边的脚本区中输入如图3-34所示的tt函数。
图3-34
(2)在QTP中输入以下脚本并执。
'创建EOM对象 Set eom = CreateObject("excel.application") '打开D盘中的1.xls eom.Workbooks.Open("d:\1.xls") '获取到Sheet1对象 Set sheet1 = eom.Sheets.Item(1) '****执行Sheet1下的tt方法***** Sheet1.tt ‘****************************** '关闭当前工作簿 eom.ActiveWorkbook.Close '退出Excel应用 eom.Quit '释放 Set eom = Nothing |
(3)最终执行结果显示test的消息框,如图3-35所示。
图3-35
分析:
脚本的实现很简单,就是创建EOM对象,获取到Sheet1对象后,并调用Sheet1对象下的tt方法,关闭工作簿后退出应用。这里是想让读者学会此种用法,并且让读者知道,在Excel的宏下的所有方法函数都是可以通过QTP结合VBS来直接调用的。