How to store the iterations value in some variable/ in
excel?
Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet,
ObjFSo, ObjFolderName, strExcelPath
Const xlExcel7 = 39
ObjFolderName = "Testing" & Hour(time()) & Minute(time())
&Second(time())
objPath = "D:\"
strExcelPath = objPath & ObjFolderName & "\testing.xls"
Set ObjFSo = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName)
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If (Err.Number <> 0) Then
On Error GoTo 0
Wscript.Echo "Excel application not found."
Wscript.Quit
End If
On Error GoTo 0
Set objWorkbook = objExcel.Workbooks.Add()
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
Dim arr1, arr2, arr3
Set outputLines = CreateObject
("System.Collections.ArrayList")
arr1 = 123arr2 = 99
arr3 = 10
outputLines.Add arr1
outputLines.Add arr2
outputLines.Add arr3
outputLines.Sort()
For Each outputLine in outputLines
WScript.Echo outputLine
' how to store this value in excel/ variable?
Next
objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
This above code is working fine but the qs is is there any
way to store the sort data in variables / in the excel and
how?
- 1 Answers
- 2939 Views
- Wipro, I also Faced
- E-Mail Answers
Answer / Ankur Dixit
To store sorted data in a variable and then write it to an Excel file, you can modify your VBScript code as follows:
```vbscript
Dim arr1, arr2, arr3, outputArray
Set outputArray = CreateObject("System.Collections.ArrayList")
arr1 = 123
arr2 = 99
arr3 = 10
outputArray.Add arr1
outputArray.Add arr2
outputArray.Add arr3
outputArray.Sort
For Each outputLine in outputArray
WScript.Echo outputLine
Next
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
Set objSheet = objWorkbook.Worksheets(1)
Dim i, count
count = outputArray.Count
For i = 0 To count - 1
objSheet.Cells(i + 1, 1).Value = outputArray.Item(i)
Next
objExcel.ActiveWorkbook.SaveAs "D:Testingtesting.xls", xlExcel7
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
```
| Is This Answer Correct ? | 0 Yes | 0 No |
how to use textfile for taking value for parametrization instead of datatable or global sheet
how to use the GetTickCount() properly and what is that procedure for?
In QTP one function can return more than one value?
what does mbln in mblnrects mean? my boolean?
can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) Line (rectSource.Left, rectSource.Top)-(rectSource.Left, rectSource.Bottom), lngColour Line (rectSource.Left, rectSource.Top)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Left, rectSource.Bottom), lngColour End Sub
Can Any one suggest how we connect QTP and Mainframe and do validation from Mainfram screen
how to manage mlng timer because they don't explain what's it's function?
How to write a reusable function for testing an "Button" Objects in a page without passing the page name to a function? (Think if page names are dynamic and doesn't have any pattern matching between each page). Send me code which works in QTP 9.2.....
How to change winform look?
write the vbscript code to print the following pattern :- 1 + (1 + 2) +(1+2+3).....
write a vb script to check equal two 2*2 matrix
How to store the iterations value in some variable/ in excel? Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet, ObjFSo, ObjFolderName, strExcelPath Const xlExcel7 = 39 ObjFolderName = "Testing" & Hour(time()) & Minute(time()) &Second(time()) objPath = "D:\" strExcelPath = objPath & ObjFolderName & "\testing.xls" Set ObjFSo = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName) On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 Set objWorkbook = objExcel.Workbooks.Add() Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) Dim arr1, arr2, arr3 Set outputLines = CreateObject ("System.Collections.ArrayList") arr1 = 123arr2 = 99 arr3 = 10 outputLines.Add arr1 outputLines.Add arr2 outputLines.Add arr3 outputLines.Sort() For Each outputLine in outputLines WScript.Echo outputLine ' how to store this value in excel/ variable? Next objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7 objExcel.ActiveWorkbook.Close objExcel.Application.Quit This above code is working fine but the qs is is there any way to store the sort data in variables / in the excel and how?
PHP Code 
