UFT：EXCEL数据驱动——EOM

EOM：Excel Automation Object Model，Excel的自动化模型对象。

在VBS中输入图上脚本后，可以看到Excel自动化模型已经被成功加入，也就是说EOM下的所有封装方法和对象都已经可以调用。(在UFT可以输入excelApp.来查看其所有的封装对象和方法)

  

WorkBook操作

新增WorkBook

'创建Excel自动化模型对象
Set excelApp = CreateObject("excel.application")
'设置为可见模式，如果遗漏Visible属性设置，执行过程会在后台进行，不会在前台显示。
excelApp.Visible = true
'新增WorkBook
excelApp.Workbooks.Add
'保存
excelApp.ActiveWorkbook.SaveAs "F:\study\UFT\1.xlsx"
'关闭Excel，如果没有关闭，第二次创建EOM的话，后台就会多一个Excel的进程，如果继续创建EOM，后台的Excel进程会越来越多，而我们无法对其进行操控
excelApp.Quit
'释放Excel对象
Set excelApp = Nothing

可以在文件下下看到新增了这样的一个excel文件：

打开WorkBook

excelApp.Workbooks.Open "F:\study\UFT\1.xlsx"

'创建Excel自动化模型对象
Set excelApp = CreateObject("excel.application")
'设置为可见模式，如果遗漏Visible属性设置，执行过程会在后台进行，不会在前台显示。
excelApp.Visible = true

'打开WorkBook
excelApp.Workbooks.Open "F:\study\UFT\1.xlsx"

'关闭Excel，如果没有关闭，第二次创建EOM的话，后台就会多一个Excel的进程，如果继续创建EOM，后台的Excel进程会越来越多，而我们无法对其进行操控
excelApp.Quit
'释放Excel对象
Set excelApp = Nothing

WorkSheet操作

新增WorkSheet

'为1.xls新增一个Sheet
Set sheet1 = excelApp.Sheets.Add
'重命名Sheet为“Hello World”
sheet1.Name = "Hello World"

'创建Excel自动化模型对象
Set excelApp = CreateObject("excel.application")
'设置为可见模式，如果遗漏Visible属性设置，执行过程会在后台进行，不会在前台显示。
excelApp.Visible = true

'打开WorkBook
excelApp.Workbooks.Open "F:\study\UFT\1.xlsx"

'为1.xlsx新增一个Sheet
Set sheet1 = excelApp.Sheets.Add
'重命名Sheet为“Hello World”
sheet1.Name = "Hello World"

'关闭Excel，如果没有关闭，第二次创建EOM的话，后台就会多一个Excel的进程，如果继续创建EOM，后台的Excel进程会越来越多，而我们无法对其进行操控
'excelApp.Quit
'释放Excel对象
Set excelApp = Nothing

获取Sheet对象并操作单元格

Set oSheet = excelApp.Sheets.Item(1) ：获取Sheet1对象的引用

'创建Excel自动化模型对象
Set excelApp = CreateObject("excel.application")
'设置为可见模式，如果遗漏Visible属性设置，执行过程会在后台进行，不会在前台显示。
excelApp.Visible = true
'新增WorkBook
excelApp.Workbooks.Add
'保存
excelApp.ActiveWorkbook.SaveAs "F:\study\UFT\1.xlsx"

'打开WorkBook
excelApp.Workbooks.Open "F:\study\UFT\1.xlsx"

'操作Sheet1
Set oSheet = excelApp.Sheets.Item(1)
'重命名Sheet为 Hello World
oSheet.Name = "Hello World"
'为第一行第一列赋值“Test”
oSheet.Cells(1,1) = "Test"
'保存当前WorkBook
excelApp.ActiveWorkbook.Save

'关闭Excel，如果没有关闭，第二次创建EOM的话，后台就会多一个Excel的进程，如果继续创建EOM，后台的Excel进程会越来越多，而我们无法对其进行操控
'excelApp.Quit
'释放Excel对象
Set excelApp = Nothing

结果：