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来直接调用的。
