Public Function AddObjectRipository(Objectrepositoryname)
Dim Pos
If instr(Objectrepositoryname,".tsr")>0 Then
RepPath = objectrepositoryname
else
RepPath = objectrepositoryname & ".tsr"
End If
RepositoriesCollection.RemoveAll()
RepositoriesCollection.Add (RepPath)
Pos = RepositoriesCollection.Find (RepPath)
MsgBox Pos
If Pos<>1 Then
MsgBox "找不到副对象库！"
End If
End Function
Call AddObjectRipository("F:\ QTPexperiments\ link.tsr")
求大神告知，怎么运行时老是提示无法识别RepositoriesCollection对象？？？

Call function的时候对象名字对么