How to find the maximum value in excel sheet using QTP script ?
Set excelapp = CreateObject("Excel.Application")
pathr="e:\tddata.xlsx"
Set
open_excel_file=excelapp.Workbooks.open(pathr)
Set
worksheet=open_excel_file.Worksheets("rough")
rcount=worksheet.usedrange.rows.count
ccount=worksheet.usedrange.columns.count
msgbox "No of Row :- " & rcount
msgbox "No of Column :- " &ccount
How to find max and min values in an array ?
You can use this function to return the Max Value, Like wise you can update
the function to return Min Value.
Function to Return Max Value in an Array
Public Function getArrMaxValueIndex(ByVal arr)
Dim ix, ixMax
ixMax = 0
For ix = 1 To UBound(arr)
If ( arr(ixMax) < arr(ix) ) Then
ixMax = ix
End If
Next
getArrMaxValueIndex = ixMax
End Function
'Define array and index for max entry
Dim arr, ixMax
'Initialize the array
arr = Array(4, 1, 3, 6, 7, 23,567,34,44)
'Get the index of the max value
ixMax = getArrMaxValueIndex(arr)
'Print result
MsgBox "Max value: " & arr(ixMax) & " was found at " & ixMax & " index."
