1.qtp读取Datatable数据:
call Datatable_getvalue()
Function Datatable_getvalue()
dim rowcount
rowcount = DataTable.GetSheet("SheetName").GetRowCount
for i=1 to rowcount step 1
rowValue = DataTbale.GetSheet("SheetName").GetParameter("fieldName").ValueByRow(i)
msgbox rowValue
next
End Function
2.vbs读取excel数据
call get_excel_value()
call set_excel_value()
rem 读取excel中的数据
function get_excel_value()
'create excel 对象
Set excelApp = CreateObject("Excel.Application")
'让excel 可见
excelApp.visible = true
Set newBook = excelApp.Workbooks.open("g:\test.xls")
for i=1 to 5 step 1
'获取excel中值
GetCellValue = excelApp.Cells(i, i)
msgbox GetCellValue
next
end function
rem 写入excel中是数据
function set_excel_value()
Set excelAppSet = CreateObject("excel.application")
excelAppSet.visible = true
Set newbookSet = excelAppSet.workbooks.open("g:\test.xls")
newbookSet.worksheets(1).activate
newbookSet.worksheets(1).cells(1,1).value = "这是我设置的值哈哈哈"
end function