QTP数据驱动之读取Excel数据

这个代码的原理是把Excel的数据当做数据库里的数据一样处理，可以对Excel用select来检索需要的数据，然后把数据以键值对的形式保存到oDict里，方便在用例层来调用

Class oDataDic

        Private oDic
        Public oWorkBookPath
        Public oSheetName
        Public oRowNo

        Private Sub Class_Initialize
                'oWorkBookPath = getTestDataFromQC_QTP("业务系统测试数据")
            
                oWorkBookPath = Environment.Value("ProductDir") & "业务系统测试数据.xls" 'strTestDataPath
        End Sub
        
        Public Default Function Load(oSheetName, oRowNo)
                With Me
                        .oWorkBookPath = oWorkBookPath
                        .oSheetName = oSheetName
                        .oRowNo = oRowNo
                End With
                
                BuildContext
                Set Load = oDic
        End Function

        Public Function GetExcelRecordCount(oSheetName, CaseNO)
                Dim oConn, oRS, arrData, x
                Set oConn = CreateObject("ADODB.Connection")
                Set oRS = CreateObject("ADODB.RecordSet")
                    
                oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=" & oWorkBookPath & ";" & _
                            "Extended Properties=""Excel 8.0;HDR=Yes;"";"
                            
                If IsNumeric(CaseNO) Then
                    sQuery = "select * from [" & oSheetName & "$]" & " where 测试用例编号 = " & CaseNO
                else
                    sQuery = "select * from [" & oSheetName & "$]" & " where 测试用例名称 = " & "'" & CaseNO & "'"
                End If
                        
                oRS.Open sQuery, oConn, 3, 3, 1

'                rows = oRS.Index
                GetExcelRecordCount = oRS.RecordCount
'                num = oRS.GetRows
'                Dim x
'                For x= 2 To oRS.RecordCount + 1
'                    If CStr(oRS.Fields(0)) = CaseNO Then
'                        msgbox x
'                        CStr(oRS.Fields(1))
'                        Exit For
'                    Else
'                        oRS.MoveNext
'                    End If
'                Next
'                Set oDic = CreateObject("Scripting.Dictionary")
'                
'                For x = 0 To oRS.Fields.Count - 1
'                        With oDic
'                                .Add "" & oRS(x).Name, "" & oRS.Fields(x)
'                        End With
'                Next
'
'                Set GetExcelRecordCount = oDic
                
        End Function

        Public Function LoadExcelRecord(oSheetName, CaseNO, oRowNo)
'                On Error Resume Next
                Dim oConn, oRS, arrData, x
                Set oConn = CreateObject("ADODB.Connection")
                Set oRS = CreateObject("ADODB.RecordSet")
                    
                oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=" & oWorkBookPath & ";" & _
                            "Extended Properties=""Excel 8.0;HDR=Yes;"";"
                            
                If IsNumeric(CaseNO) Then
                    sQuery = "select * from [" & oSheetName & "$]" & " where 测试用例编号 = " & CaseNO
                else
                    sQuery = "select * from [" & oSheetName & "$]" & " where 测试用例名称 = " & "'" & CaseNO & "'"
                End If
                oRS.Open sQuery, oConn, 3, 3, 1



'                For x= 2 To oRS.RecordCount + 1
'                    If CStr(oRS.Fields(0)) = CaseNO Then
'                        msgbox x
'                        CStr(oRS.Fields(1))
'                        Exit For
'                    Else
'                        oRS.MoveNext
'                    End If
'                Next

                For x= 2 To oRowNo - 1 : oRS.MoveNext : Next

                Set oDic = CreateObject("Scripting.Dictionary")
                
                For x = 0 To oRS.Fields.Count - 1
                        With oDic
                                .Add "" & oRS(x).Name, "" & oRS.Fields(x)
'                                .Add cstr(oRS(x).Name), cstr(oRS.Fields(x))
                        End With
                Next

                Set LoadExcelRecord = oDic
                
        End Function
        
        Private Function BuildContext
                Dim oConn, oRS, arrData, x
                
                Set oConn = CreateObject("ADODB.Connection")
                Set oRS = CreateObject("ADODB.RecordSet")
                
                oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=" & Me.oWorkBookPath & ";" & _
                            "Extended Properties=""Excel 8.0;HDR=Yes;"";"

                sQuery = "select * from [" & Me.oSheetName & "$]"        
                oRS.Open sQuery, oConn, 3, 3, 1
                
                For x= 2 To oRowNo - 1 : oRS.MoveNext : Next
                
                Set oDic = CreateObject("Scripting.Dictionary")
                
                For x = 0 To oRS.Fields.Count - 1
                        With oDic
                                .Add "" & oRS(x).Name, "" & oRS.Fields(x)
'                                .Add cstr(oRS(x).Name), cstr(oRS.Fields(x))
                        End With
                Next

'                Set oDic = Nothing
'                Set oRS = Nothing
'                Set oConn =Nothing
        End Function
        
'        Private Property Let oDic(ByVal val)
'                Set oDic = val
'        End Property
'        
'        Private Property Get oDic()
'                Set oDic = oDic
'        End Property
End Class


Set mDataContext = New oDataDic