EOMExcel Automation Object ModelExcel的自動化模型對象。在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文件打開WorkBookexcelApp.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 NothingWorkSheet操作新增WorkSheet為1.xls新增一個SheetSet 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結果