Forum Discussion
praveensqa
13 years agoContributor
''''Excel:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "starttrack"
'Your Existing Vbs Script Goes Here.
A= "PASS"
B="FAIL"
If VRes_code=Code_number Then
Log.Message "Responce Code:"+VRes_code+" PASS"
objExcel.Cells(intRow, 1).Value = A
else
objExcel.Cells(intRow, 1).Value = B
Log.Error "Responce Code:"+VRes_code+" FAIL"
end if
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "starttrack"
'Your Existing Vbs Script Goes Here.
A= "PASS"
B="FAIL"
If VRes_code=Code_number Then
Log.Message "Responce Code:"+VRes_code+" PASS"
objExcel.Cells(intRow, 1).Value = A
else
objExcel.Cells(intRow, 1).Value = B
Log.Error "Responce Code:"+VRes_code+" FAIL"
end if
Related Content
- 2 months ago
- 7 years ago
- 3 years ago
- 8 years ago
- 3 years ago
Recent Discussions
- 7 hours ago