数组
‘strColName: 结果的列名
‘arrResult: 存放测试结果的数组
‘For example：”D:\1.xls”,”sheet1″,arrData,”actualResult”,arrResult
‘Return：
‘******************************************************
Sub setResultByArrdata(strFilePath,strSheetName,arrData,resultColname,arrResult)
Dim ExcelApp,ExcelBook,ExcelSheet,notNullNumber,intCol
‘创建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
intCol =getColByValue(strFilePath,strSheetName,resultColname)
‘统计结果所在的列有多少行不为空
notNullNumber=0
For i=1 To rowcount
If ExcelSheet.cells(i,intCol)<>“” Then
notNullNumber=notNullNumber+1
End If
Next
If notNullNumber=1 Then
For i=0 To UBound(arrResult)
ExcelSheet.cells(arrData(i,0),intCol).value = arrResult(i)
Next
Else
For i=0 To UBound(arrResult)
ExcelSheet.cells(arrData(i,0),colcount+1).value = arrResult(i)
Next
End If
ExcelApp.DisplayAlerts = false
ExcelApp.Save
closeExcelSheet ExcelBook,ExcelApp,ExcelSheet
End Sub
‘******************************************************
‘Sub:关闭Excel
‘Input parameter：
‘ExcelBook：打开的Excel
‘ExcelApp：创建的Excel对象
‘ExcelSheet：当前活动的表单
‘For example：ExcelBook,ExcelApp,ExcelSheet
‘Return：
‘******************************************************
Sub closeExcelSheet(ExcelBook,ExcelApp,ExcelSheet)
ExcelBook.Close
ExcelApp.Quit
Set ExcelApp = Nothing
Set ExcelBook = Nothing
Set ExcelSheet = Nothing
End Sub