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文件，前提是文件必须存在，如果文件不存在，则会出错。因此，可以在代码中利用fso进行事先的文件是否存在的判断。

3、  获取WorkBook的数量

'打开WorkBook excelapp.Workbooks.Open "d:\1.xls" '获取WorkBook的数量 MsgBox excelapp.Workbooks.Count

WorkSheet操作

1、  新增Sheet

'创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application") '设置为可见模式 excelApp.Visible = true '打开WorkBook excelapp.Workbooks.Open "d:\1.xls" '为1.xls新增一个Sheet Set oSheet = excelapp.Sheets.Add '重命名Sheet为"helloworld" oSheet.name = "helloworld" '释放Excel对象 Set excelApp = nothing

提示：先打开Book或创建Book，然后才可以创建Sheet

2、  获取Sheet对象并操作单元格

'获取1.xls中一个Sheet对象 Set oSheet = excelapp.Sheets.Item(1) '重命名Sheet为"helloworld" oSheet.name = "helloworld" '为第一行第一列单元格赋值"QuickTest" oSheet.cells(1,1) = "QuickTest" '保存当前WorkBook excelApp.ActiveWorkbook.Save '释放Excel对象 Set excelApp = nothing

提示：excelapp.Sheets.Item(1)是为了获取到Sheet1对象的引用

动态加载宏代码

静态加载：在Excel提供的VB编辑器进行编辑代码，然后通过QTP来进行调用

静态调用方法：

1、  假如已经在sheet1宏代码编辑器中编辑了函数tt

2、  调用方法如下所示：定位到

'创建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

调用流程：创建EOM对象，获取到Sheet1对象后，并调用Sheet1对象下的tt方法，关闭工作簿后退出应用

先修知识：VBProject常用代码操作

一、增加模块

1．增加一个模块，命名为“我的模块”

 ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name ="我的模块"

  系统常量vbext_ct_StdModule=1

2．增加一个类模块，命名为“我的类”

 ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name ="我的类"

 vbext_ct_ClassModule=2

3．增加一个窗体，命名为“我的窗体”

 ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体"

 vbext_ct_MSForm=3

二、删除模块【Remove】 ：类、模块、窗体同理

1．删除“模块1”

  ThisWorkbook.VBProject.VBComponents.RemoveThisWorkbook.VBProject.VBComponents("模块1")

三、增加代码

1.在“模块1”中插入代码

如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。

方法1：

在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。

Sub AddCode1()

 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _

   "subaTest()" & Chr(10) & _

   "msgbox""Hello""" & Chr(10) & _

   "endsub"

End Sub

方法2：

在模块指定行处增加代码，原代码后移。增加代码不理会和判断插入处代码的内容。当指定行大于最后一行行号时，在最后一行的后面插入。

 

Sub AddCode2()

  WithThisWorkbook.VBProject.VBComponents("模块1").CodeModule

   .InsertLines 1, "sub aTest()"

   .InsertLines 2, "msgbox ""Hello"""

   .InsertLines 3, "end sub"

  EndWith

End Sub

相关语句：

(1)“模块1”中代码总行数：

ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfLines

(2)“模块1”中代码公共声明部分的行数：

ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfDeclarationLines

(3)显示“模块1”中第1行起的3行代码内容：

Sub ShowCodes()

  Dims$

  s =ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.Lines(1, 3)

  Debug.Prints

End Sub

2.建立事件过程

建立事件过程除了使用上面的代码如下面的AddEventsCode1外，还可以使用CreateEventProc方法，如AddEventsCode2所示。

一般方法：

Sub AddEventsCode1()

 ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString_

   "Private Sub Workbook_Open()" & Chr(13) & _

   "MsgBox ""Hello""" & Chr(13) & _

   "End Sub"

End Sub

CreateEventProc方法：

Sub AddEventsCode2()

  Dimi%

  WithThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule

    i =.CreateEventProc("SelectionChange", "Worksheet") + 1

   .InsertLines i, "Msgbox ""Hello"""

  EndWith

End Sub

上面CreateEventProc的两个参数建立的事件过程为Worksheet_SelectionChange，分别是下划线两边的内容。  

四、删除代码

1．删除Sheet1中第2行起的三行代码： 如果只删除1行代码，第二个参数可省略。

Sub DelCodes()

 ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.DeleteLines2, 3

End Sub

2．删除“模块1”的所有代码：

Sub DelCodes()

 WithThisWorkbook.VBProject.VBComponents("模块1").CodeModule

  .DeleteLines 1, .CountOfLines

 EndWith

End Sub

 

3．删除过程aTest:

Sub DelCodes()

  WithThisWorkbook.VBProject.VBComponents("模块1").CodeModule

  .DeleteLines .ProcBodyLine("aTest", 0),.ProcCountLines("aTest", 0)

  EndWith

End Sub

4．将“模块1”的第5行代码替换为“x=3”

 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 5,"x=3"

五、引用项目

1．增加引用

 ThisWorkbook.VBProject.References.AddFromFile"C:\Windows\System32\asctrls.ocx"

2．取消引用

 ThisWorkbook.VBProject.References.RemoveThisWorkbook.VBProject.References("ASControls")

这里ASControls是引用的名字，即后面的rf.Name。

3．显示当前所有引用

Sub ShowRefs()

  Dimrf As VBIDE.Reference

  ForEach rf In ThisWorkbook.VBProject.References

   Debug.Print rf.Name, rf.FullPath

  Next

End Sub

六、信任及密码

上面所有操作都基于这样的前题：

（1）EXCEL已设置： 工具（T）-宏（M）-安全性（M）-可靠发行商（T）-勾选了“信任对于VB项目的访问（V）”

（2）工程没有设置密码

如果不能满足它们中的任何一个，代码运行就会出错。因为微软不希望我们对VBProject进行操作。幸运的是，借助于SendKeys这道后门我们仍可以完成我们所要做的事。

下面给出绕开这两道门的示意代码，如果你要运行它们，请记得切回EXCEL主界面，而不是在VBE中直接运行。

1．信任对于VB项目的访问

Sub SetAllowableVbe()

  OnError Resume Next

  DimChgset As Boolean

  '陷阱测试，VBProject.Protection在这儿并无实际的意义

 Debug.Print ThisWorkbook.VBProject.Protection

  IfErr.Number = 1004 Then

   Err.Clear

   Application.SendKeys "%TMS%T%V{ENTER}"

   Chgset = True

   DoEvents

  EndIf

  EndIf

End If

  '要执行的操作....

  '.....

  '操作完成后还原操作前的状态

  If Chgset Then Application.SendKeys"%TMS%T%V{ENTER}"

EndSub

2．操作密码工程

SubAllowPass()

  Dim pw$

  pw = "Password"

  If ThisWorkbook.VBProject.Protection =vbext_pp_locked Then

    Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject属性(&E)...").Execute

    Application.SendKeys pw &"{ENTER}{ENTER}"

    DoEvents

  End If

  '要执行的操作….

  '.....

EndSub

Protection属性返回工程的受保护状态，vbext_pp_locked(1)为受保护,vbext_pp_none(0)表示没有保护。

动态调用方法：

1、  字符串加载方式（只显示核心部分，其余按照前面）

'进入到宏编辑区并获取到WorkBook的脚本模块对象 Set oModule = oWorkbook.VBProject.VBComponents.Item("ThisWorkbook") '定义动态脚本 Dim newCode '所有脚本内容 newCode = "Function tt()" +vbNewLine newCode = newCode + "msgbox ""test"""+ vbNewLine newCode = newCode + "End Function"+ vbNewLine '加载脚本 oModule.CodeModule.AddFromString newCode '执行脚本 oWorkbook.tt '关闭WorkBook，此处false代表不保存直接关闭 oWorkbook.Close false

注意：创建EOM对象，添加一个WorkBook，获取到VBProject下的VBComponents中WorkBook的编辑区对象，并使用codeModule对象添加需要的代码，接着就可以直接执行方法函数，最后关闭WorkBook。

2、  文本文件加载方式

'进入到宏编辑区并获取到WorkBook的脚本模块对象 Set oModule = oWorkbook.VBProject.VBComponents.Item("ThisWorkbook") ' 直接动态导入函数库文件 oModule.CodeModule.AddFromFile "d:\1.bas" '执行脚本 oWorkbook.tt '关闭WorkBook，此处false代表不保存直接关闭 oWorkbook.Close false

注意：首先需要创建一个BAS文件，此格式为Excel导出的宏文件格式。在这个BAS文件中加入需要的一些函数。此处就把前面的tt函数加入到BAS中，并且保存到D盘中，在真实项目中，建议使用相对路径，这样方便以后的移植。

 

Excel信用机制调整

Excel考虑到安全性的问题，默认是限制用户使用脚本直接访问VBProject程序，直接调用外部代码会报错

解决方法一：手工设置

当打开Excel后，依次进入工具→宏→安全性，选择“可靠发行商”选项卡后，看到“信任对于‘Visual Basic项目’的访问”，默认状态下Excel是不会对其进行信任的，把此选项选上。即可做到对VBProject信任状态了

解决办法二：利用WSH对象

'创建WSH对象 Set oWshShell = CreateObject("wscript.shell") '创建EOM对象 Set eom = CreateObject("excel.application") '写入注册表，设置对VBProject进行信任 oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Office\11.0\Excel\Security\AccessVBOM" , 1, "REG_DWORD" ‘******************************************************** ‘ 测试主要脚本编写区 ‘********************************************************* '删除注册表 oWshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Office\11.0\Excel\Security\AccessVBOM" '释放对象 Set oWshShell = Nothing Set eom = Nothing

利用ADO打造Excel数据库

原理：使用基本的数据库连接方式即可

注意点：

         SQL语句中如果需要描述表名，需要在后面添加一个“$”符号才能识别【select * from [Sheet1$]】

         至于数据库链接字符串的获得使用前面提到的两种方法即可

'定义SQL连接字符串 sqlConnection = "DSN=Excel Files;DBQ=D:\1.xls;" '定义SQL语句 sqlCommand = "select * from [Sheet1$]" '创建ADO对象 Set oExcel = CreateObject("adodb.connection") '打开数据连接 oExcel.Open sqlConnection '执行SQL语句并获得查询结果集 Set oRst = oExcel.Execute(sqlCommand) '获取username字段名对应的字段值 MsgBox oRst.Fields("username") '关闭数据库 oExcel.Close '释放资源 Set oRst = Nothing Set oExcel = Nothing

如果觉得QTP提供的DataTable扩展性不好的话，可以利用ADO和Excel创建Dictionary扩展QTP性能