Is there a way to update the values of a QC Project list using the OTA API's? Can someone provide an example? We have several projects with drop down lists that have more than 200 + Entries and manually adding them takes forever
Thanks for the help. I have written a script that works. but i did get a chance to look at the tdfourm post.
<font class="small">Code:</font><hr /><pre>
'Script created by Jan Czajkowski, SQS Nordic, Sep. 19, 2008
'This script assumes that you provide relevant parameter values, that all list items are in the first column of the Excel sheet and that no empty rows exist between the first and the last list item.
server = "http://YourServer/qcbin"
user = "YourUserName"
domain = "YourDomain"
project = "YourProject"
listName = "YourListName"
password = InputBox("Password:")
Set tdc = CreateObject("tdapiole80.tdconnection")
tdc.InitConnection server, domain
tdc.ConnectProject project, user, password
Set objXL = CreateObject ("Excel.Application")
matrisPath = objXL.GetOpenFileName("",1,"Choose Excel file with list items","Import", False)
objXL.Visible = False
Set origin = objXL.Cells(1, 1)
Set cust = tdc.Customization
Set listRoot = cust.Lists.List(CStr(listName)).RootNode
i = 0
Do While 1 = 1
listItem = origin.Offset(i,0).text
If listItem = "" Then
'Avoid an error if an item already exists
On Error Resume Next
On Error Goto 0
i = i + 1
listRoot.Updated = True
Set listRoot = Nothing
Set origin = Nothing
Set cust = Nothing