Use the code below,
Hope it helps.
Let me know in case if you need any help.
I will post the code for doing it in excel tomorrow.
Thanks,
Elango
Code:
Dim paramcount, FindParameter
datatable.ImportSheet "C:\Documents and Settings\Administrator\Desktop\excelblank.xls",1,"Action1"
paramcount=datatable.GetSheet("Action1").GetParameterCount
msgbox paramcount
For i=1 to paramcount
If datatable.GetSheet("Action1").GetParameter(i).Name = "Password" Then
datatable.Value(i,"Action1")="mypassword"
FindParameter = "Pass"
End If
Next
If FindParameter <> "Pass" Then
datatable.GetSheet("Action1").AddParameter "Password","mypassword"
End If
Hope it helps.
Let me know in case if you need any help.
I will post the code for doing it in excel tomorrow.
Thanks,
Elango