Dear Roller,
I have below script, how can i add it on excel VBA? can do some for me?
'LANGUAGE=ENU
'SERVERNAME=10.21.151.17
Public Sub Main()
'## cvs_cmd_begin
'## ID = 1050
'## Description = "Dictionary: Form: Login Identifications: Modify"
'## Parameters.Add "Modify","_Action"
'## Parameters.Add "Login Identifications","_FormName"
'## Parameters.Add "Dictionary: Form: Login Identifications: Modify","_Description"
'## Parameters.Add "Dictionary","_Subsystem"
'## Parameters.Add "Dictionary","_CatalogName"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "False","_Interactive"
'## Parameters.Add "ENU","_Language"
'## Parameters.Add "4770","_Top"
'## Parameters.Add "10425","_Left"
'## Parameters.Add "6000","_Width"
'## Parameters.Add "2535","_Height"
'## Parameters.Add "2","_NumProperties"
'## Parameters.Add "47493","login_id"
'## Parameters.Add "CYG_Nor Alhafizah","ag_name"
On Error Resume Next
cvsSrv.Dictionary.ACD = 1
b = cvsSrv.Dictionary.CreateOperation("Login Identifications",Op)
If b Then
Op.Window.Top = 4770
Op.Window.Left = 10425
Op.Window.Width = 6000
Op.Window.Height = 2535
Op.SetProperty "login_id","47493"
Op.SetProperty "ag_name","CYG_Nor Alhafizah"
b = Op.DoAction("Modify")
End If
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Op.TaskID
Set Op = Nothing
'## cvs_cmd_end
End Sub
