QTP中Datatable扩展操作

' ************************************************************
' 函数说明：判断Sheet中是否存在该列名
' 参数说明：sColomnName - 列名，sTable - DataTable页
' 返回结果：
' ************************************************************
Function ColumExistInTable( sColomnName, sTableName)

　　sSheetCounr = DataTable.GetSheetCount
　　ColumExistInTable = False

　　iParameterCount = Datatable.GetSheet(sTableName).GetParameterCount
　　For i=1 to iParameterCount
　　    If sColomnName = DataTable.GetSheet(sTableName).GetParameter(i).Name Then
　　       ColumExistInTable=True
　　    　　Exit For
　　　　End If 'sColomnName=DataTable.GetSheet(sTableName).GetParameter(i).Name
　　Next

End Function

' ************************************************************
' 函数说明：将Excel导入到Data中
' 参数说明：sFileName文件地址，sSheetName Sheet页名，sDataTable导入目标Datatable
' 返回结果：
' ************************************************************
Function ImportDataSheet(sFileName,sSheetName,sDataTable)
　　Dim excelApp
　　Dim excelSheet
　　Dim colCount
　　Dim rowCount
　　Dim param
　　DataTable.DeleteSheet sDataTable
　　DataTable.AddSheet sDataTable
　　Set excelApp = CreateObject("Excel.Application")
　　excelApp.workBooks.open(sFileName)
　　Set excelSheet = excelApp.sheets.item(sSheetName)
　　colCount = excelSheet.usedRange.columns.count
　　For i = 1 to colCount
　　　　param = excelSheet.cells(1,i)
　　　　DataTable.GetSheet(sDataTable).AddParameter param,""
　　Next
　　rowCount = excelSheet.usedRange.rows.count
　　For i = 2 to rowCount
　　　　DataTable.GetSheet(sDataTable).SetCurrentRow i-1
　　　　For j = 1 to colCount
　　　　　　param = excelSheet.cells(i,j)
　　　　　　DataTable.Value(j,sDataTable) = param
　　　　Next
　　Next
　　excelApp.Application.Quit
　　Set excelApp=Nothing
End Function

　　

 

后续补充