QTP-利用EOM自动化EXCEL

Excel—数据驱动必备利器

注意：更多信息可以查询EXCEL的VBA或Visual Base For Aplication如何使用

如果遇到QTP读取DataTable不能满足基本需求，需要使用Excel来解决问题时

● 通过编写Excel Macros把数据表的格式转化为QTP中DataTable的格式。

● 直接抛弃DataTable功能，使用EOM来对数据表进行操控。

查看EOM[Excel ObjectModel]封装对象库的方法和属性

1、  使用VBSEdit创建Excel自动化模型对象

‘创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application")

就可以在VBSedit的Object Browser视图中自动添加相对应的Excel对象的方法和属性

2、  使用Excel自带的VB编辑器（宏编辑器）查看

在Excel表中按下快捷方式【Alt+F11】

注意：相关的对象库的使用可以参考MSDN的说明

进入VB宏编辑器后，选中需要进行宏定义的表，后输入快捷键F2，出现右图示

BOOK和Sheet的区别

l  Book是Excel的一个最大的模块单元，具体点就是一个Excel的文件，也就是一个Xls文件

l  Sheet是Book下的一个分类子模块，在每个Book下默认都会有3个Sheet，用户可以自动进行添加与删除。

l  Excel Book和Word Book区别在于Excel打开后主窗口会自动绑定所有的BOOK子窗口，关闭的时候也是一起关闭

WordBook的操作

1、  新增WordBook

'创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application") '设置为可见模式 excelApp.Visible = true ’上面基础步骤，下面示例只是为了方便略去却是必须的 '新增WorkBook excelapp.Workbooks.Add '保存 excelApp.Save "d:\1.xls" '关闭Excel excelApp.Quit '释放Excel对象 Set excelApp = nothing

2、  打开WorkBook

'打开WorkBook excelapp.Workbooks.Open "d:\1.xls"

提示：执行结果就是直接打开了D盘中的1.xls文件，前提是文件必须存在，如果文件不存在，则会出错。因此，可以在代码中利用f