VBS操作Excel
-
打开excel
Dim objExcel,objWorkbook,objSheet
Set objExcel=CreateObject("excel.application")
Set objBook=objExcel.Workbooks.Open("\MGPCTFSW01UserFolders$ 165050DesktopPortal_Smoke_AutomationTest DataBook1.xlsx")
-
读取Excel
a.
Set objSheet=objbook.Sheets("sheet1")
msgbox objSheet.cells(2,2)
Set objBook=Nothing
Set objSheet=Nothing
objExcel.Quit
b.
Set objSheet=objbook.Sheets(SheetName)
Set objRange = objSheet.UsedRange
objRow = objRange.Find(RowName).Row
objColumn = objRange.Find(ColumnName).Column
objValue = objSheet.Cells(objRow,objColumn)