‘创建EXCEL程序，打开工作簿，设置当前活动sheet
Set ExcelApp = CreateObject(“Excel.Application”)
Set ExcelBook = ExcelApp.WorkBooks.Open(strFilePath)
Set ExcelSheet = ExcelBook.WorkSheets(strSheetName)

‘取得EXCEL表共有几行、几列
rowcount =ExcelBook.ActiveSheet.UsedRange.Rows.Count
colcount=ExcelBook.ActiveSheet.UsedRange.Columns.Count

‘从行开始循环
For i=1 To rowcount
For j=1 To colcount
‘判断是否找到需要的值
If ExcelSheet.cells(i,j)= Value Then

‘返回值
getRowByValue=i

‘如果找到了此值，退出循环
Exit for
End If
Next

‘如果找到了此值，退出循环
If getRowByValue <>“” Then
Exit For
End If
Next

‘关闭Excel
closeExcelSheet ExcelBook,ExcelApp,ExcelSheet

End Function

‘******************************************************
‘Function:读取某值第一次出现的列号
‘Input parameter：
‘strFilePath:Excel文件保存的路径
‘strSheetName:要读取的Excel中Sheet的名称
‘Value:第一次出现的值
‘For example：”E:\a.xls”,”Sheet1″,”root”
‘Return：行号
‘******************************************************
Function getColByValue(strFilePath,strSheetName,Value)
‘定义变量
Dim ExcelApp,ExcelBook,ExcelSheet
Dim rowcount,colcount

‘创建EXCEL程序，打开工作簿，设置当前活动sheet
Set ExcelApp = CreateObject(“Excel.Application”)
Set ExcelBook = ExcelApp.WorkBooks.Open(strFilePath)
Set ExcelSheet = ExcelBook.WorkSheets(strSheetName)

‘取得EXCEL表共有几行、几列
rowcount =ExcelBook.ActiveSheet.UsedRange.Rows.Count
colcount=ExcelBook.ActiveSheet.UsedRange.Columns.Count

‘从行开始循环
For i=1 To rowcount
For j=1 To colcount
‘判断是否找到需要的值
If ExcelSheet.cells(i,j)= Value Then

‘返回值
getColByValue=j

‘如果找到了此值，退出循环
Exit for
End If
Next

‘如果找到了此值，退出循环
If getColByValue <>“” Then
Exit For
End If
Next

‘关闭Excel
closeExcelSheet ExcelBook,ExcelApp,ExcelSheet

End Function

‘******************************************************
‘Function：初始化数据，获取测试数据
‘Input parameter：
‘strFilePath: 测试数据Excel的文件路径
‘strSheetName：要读取的Excel中Sheet的名称
‘colNumber:标示符所在列
‘flag:是否执行的标示符
‘parmNumbers:测试参数的个数

‘For example：”D:\test.xls”,”login”,1,”x”,4
‘Return：测试数据（二维数组）
‘第一列为每条测试数据在excel中的行号，以便于结果的写回
‘******************************************************
Function getTestdata( strFilePath,strSheetName,colNumber,flag,parmNumbers)
‘定义变量
Dim ExcelApp,ExcelBook,ExcelSheet,rowcount,colcount,array(),arra(),k

‘创建EXCEL程序，打开工作簿，设置当前活动sheet
Set ExcelApp = CreateObject(“Excel.Application”)
Set ExcelBook = ExcelApp.WorkBooks.Open(strFilePath)
Set ExcelSheet = ExcelBook.WorkSheets(strSheetName)

‘取得EXCEL表共有几行、几列
rowcount=ExcelBook.ActiveSheet.UsedRange.Rows.Count
colcount=ExcelBook.ActiveSheet.UsedRange.Columns.Count

‘确定哪些行的数据需要执行，存在一维数组中
m=0
For i=1 To rowcount
If ExcelSheet.cells(i,colNumber)= flag Then
ReDim PreServe arra(m)
arra(m)=i
m=m+1
End If
Next

‘重定义二纬数组，第一列存放每条测试数据行号，及测试数据的参数
ReDim PreServe array(m-1,parmNumbers)

For i=0 To m-1
array(i,0)=arra(i)
For j=1 To parmNumbers
array(i,j)=ExcelSheet.cells(arra(i),j+colNumber)
Next
Next

‘返回值
getTestdata=array

‘关闭Ecxel
closeExcelSheet ExcelBook,ExcelApp,ExcelSheet
End Function