QTP中数据字典的脚本出错，求大神看

yinjiajia0626

1. '调用D盘的1.txt资源，在setting中
   
2. Class oDataDic
   
3.    Private oDic 'DIctionary对象
   
4.         Public oWorkBookPath 'xls文件对象
   
5.         Public oSheetName
   
6.     Public oRowNo 'Rows have number
   
7.    Public Default Function Load(oWorkBookPath,oSheetName,oRowNo)
   
8.       With Me
   
9.    .oWorkBookPath=oWorkBookPath
   
10.    .oSheetName=oSheetName
    
11.         .oRowNo=oRowNo
    
12.        End With
    
13.            BuildContext
    
14.            Set Load=oDic
    
15.    End Function
    
16.    Private Function BuildContext
    
17.           Dim oConn,oRS,arrData,x
    
18.           Set oConn=CreateObject("adodb.Connection")
    
19.           Set oRS=CreateObject("adodb.RecordSet")
    
20.           oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;"&_
    
21.           "Data Source="&Me.oWorkBookPath&";"&_
    
22.           "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    
23.           sQuery="Select * from ["&Me.oSheetName&"$]"
    
24.           oRs.Open sQuery,oConn,3,3,1
    
25.           For x=2 to oRowNo -1:oRS.MoveNext:
    
26.                             Next
    
27. 
    
28.          oDict=CreateObject("Scripting.Dictionary")
    
29.          For x=0 to oRS.Fields.Count-1
    
30.                  msgbox  oRS.Fields.Item(x)
    
31.                  With oDict
    
32.                  .Add "" & oRS(x).Name,"" & oRS.Fields(x)
    
33.                  End With
    
34.          Next
    
35.    End Function
    
36. 
    
37. Private Property Let oDict(ByVal val)
    
38.    Set oDict=Val
    
39. End Property
    
40. 
    
41. Private Property Get oDict()
    
42.    Set oDict = oDic
    
43. End Property
    
44. 
    
45. End Class
    
46. Set mDataContext=New oDataDic
    
47. 
    
48. oWorkBookPath="D:\1.xls"
    
49. oSheetName="Sheet1"
    
50. oRowNo=3
    
51. Set mDict=mDataContext.Load(oWorkBookPath,oSheetName,oRowNo)
    
52. MsgBox mDict("Age")
    
53. MsgBox mDict("Sex")
    
54. MsgBox mDict("Username")
    
55. MsgBox mDict("Password")
    
56. Set mDict=Nothing

复制代码

出错的截图：


附件为我用到的1.xls

ermine

回复 1# yinjiajia0626

28行，定义数组用要Set
Set oDict=CreateObject("Scripting.Dictionary")

我没装你写的这个数据库的provider，不确认，不过建议你在细节化错误在哪，如果注释掉数据库那部分，把定义语句放在with里面，是可以的

yinjiajia0626

回复 2# ermine


    谢谢啊，Set oDict=CreateObject("Scripting.Dictionary")这个试了之后没有报错了，但是MsgBox弹出的是空值；
我是新手，还不太会细化错误。。。
总之还是很谢谢你！

cj_51Testing

'调用D盘的1.txt资源，在setting中
Class oDataDic
   Private oDic 'DIctionary对象
        Public oWorkBookPath 'xls文件对象
        Public oSheetName
    Public oRowNo 'Rows have number
   Public Default Function Load(oWorkBookPath,oSheetName,oRowNo)
      With Me
   .oWorkBookPath=oWorkBookPath
   .oSheetName=oSheetName
        .oRowNo=oRowNo
       End With
           BuildContext
           Set Load=oDic
   End Function
   Private Function BuildContext
          Dim oConn,oRS,arrData,x
          Set oConn=CreateObject("adodb.Connection")
          Set oRS=CreateObject("adodb.RecordSet")
          oConn.Open "rovider=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 -1RS.MoveNext:
                            Next

         oDict=CreateObject("Scripting.Dictionary")
         For x=0 to oRS.Fields.Count-1
                 msgbox  oRS.Fields.Item(x)
                 With oDict
                 [color=Red].Add "" & oRS.Fields(x).Name,"" & oRS.Fields(x)                 End With
         Next
   End Function

Private Property Let oDict(ByVal val)
   Set oDict=Val
End Property

Private Property Get oDict()
   Set oDict = oDic
End Property

End Class
Set mDataContext=New oDataDic

oWorkBookPath="D:\1.xls"
oSheetName="Sheet1"
oRowNo=3
Set mDict=mDataContext.Load(oWorkBookPath,oSheetName,oRowNo)
MsgBox mDict("Age")
MsgBox mDict("Sex")
MsgBox mDict("Username")
MsgBox mDict("assword")
Set mDict=Nothing