據(jù)驅動——EOM)
EOMExcel Automation Object ModelExcel的自動化模型對象。在VBS中輸入圖上腳本后可以看到Excel自動化模型已經(jīng)被成功加入也就是說EOM下的所有封裝方法和對象都已經(jīng)可以調用。(在UFT可以輸入excelApp.來查看其所有的封裝對象和方法)WorkBook操作新增WorkBook創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 excelApp.Visible true 新增WorkBook excelApp.Workbooks.Add 保存 excelApp.ActiveWorkbook.SaveAs F:\study\UFT\1.xlsx 關閉Excel如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing可以在文件下下看到新增了這樣的一個excel文件打開WorkBookexcelApp.Workbooks.Open F:\study\UFT\1.xlsx創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 excelApp.Visible true 打開WorkBook excelApp.Workbooks.Open F:\study\UFT\1.xlsx 關閉Excel如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp NothingWorkSheet操作新增WorkSheet為1.xls新增一個SheetSet sheet1 excelApp.Sheets.Add重命名Sheet為“Hello World”sheet1.Name Hello World創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 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如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing獲取Sheet對象并操作單元格Set oSheet excelApp.Sheets.Item(1) 獲取Sheet1對象的引用創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 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如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing結果 UFT：EXCEL數(shù)據(jù)驅動——EOM
EOMExcel Automation Object ModelExcel的自動化模型對象。在VBS中輸入圖上腳本后可以看到Excel自動化模型已經(jīng)被成功加入也就是說EOM下的所有封裝方法和對象都已經(jīng)可以調用。(在UFT可以輸入excelApp.來查看其所有的封裝對象和方法)WorkBook操作新增WorkBook創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 excelApp.Visible true 新增WorkBook excelApp.Workbooks.Add 保存 excelApp.ActiveWorkbook.SaveAs F:\study\UFT\1.xlsx 關閉Excel如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing可以在文件下下看到新增了這樣的一個excel文件打開WorkBookexcelApp.Workbooks.Open F:\study\UFT\1.xlsx創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 excelApp.Visible true 打開WorkBook excelApp.Workbooks.Open F:\study\UFT\1.xlsx 關閉Excel如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp NothingWorkSheet操作新增WorkSheet為1.xls新增一個SheetSet sheet1 excelApp.Sheets.Add重命名Sheet為“Hello World”sheet1.Name Hello World創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 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如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing獲取Sheet對象并操作單元格Set oSheet excelApp.Sheets.Item(1) 獲取Sheet1對象的引用創(chuàng)建Excel自動化模型對象 Set excelApp CreateObject(excel.application) 設置為可見模式如果遺漏Visible屬性設置執(zhí)行過程會在后臺進行不會在前臺顯示。 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如果沒有關閉第二次創(chuàng)建EOM的話后臺就會多一個Excel的進程如果繼續(xù)創(chuàng)建EOM后臺的Excel進程會越來越多而我們無法對其進行操控 excelApp.Quit 釋放Excel對象 Set excelApp Nothing結果