QTP 基础代码收集(转)-DataTable使用方法

今日闲暇无事，去别人的博客转悠了一下。发现了不少好东西。现与大家共享一下
文章转自(般若菠萝蜜的博客，具体链接见下)
http://www.51testing.com/?uid-112727-action-spacelist-type-blog-itemtypeid-6078

Function ImportSheet(ExcelSheetName)
   Err.Clear
   Dim sheetCount
   sheetCount = DataTable.GetSheetCount
   For i = 1 to sheetCount
    If strcomp(ExcelSheetName, DataTable.GetSheet(i).Name) = 0 Then
     ImportSheet = True
     Exit Function
    End If
   Next
   DataTable.AddSheet ExcelSheetName
   DataTable.ImportSheet "RandallTest.xls", ExcelSheetName, ExcelSheetName
   If Err.Number<>0 Then
    ImportSheet = False
    Exit Function
   Else
      ImportSheet = True   
   End If
End Function

Function GetCellData(DTSheetName, FieldName, Row)
   Err.Clear
   Dim sheetCount
   Dim blnExist
   blnExist = False
   sheetCount = DataTable.GetSheetCount
   For i = 1 to sheetCount
    If strcomp(DTSheetName, DataTable.GetSheet(i).Name) = 0 Then
     blnExist = True
     Reporter.ReportEvent micDone, "GetSheet: "+DTSheetName, "Passed"
     Exit For
    End If
   Next  
   If Not blnExist Then
    Reporter.ReportEvent micFail, "Sheet Exist: "+ DTSheetName, "Failed"
    GetCellData = False
    Exit Function
   End If
   DataTable.SetCurrentRow Row
   GetCellData = DataTable.Value(FieldName, DTSheetName)
   If Err.Number<>0 Then
    Reporter.ReportEvent micFail, "GetSheetValue", "Failed"
    Exit Function
   End If
End Function