Can you please elaborate upon your requirement? Do you mean, you want to generate a report in .xls format?

To store values in Excel, the value to be written should be on the right side of the = sign:

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")

xlSheet.Rows(2).Columns(1).Value = "Row2Column1"

xlBook.Save
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

When the value is to be retrieved, the variable that stores the value should be on the left side of the = sign:

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")

sValue = xlSheet.Rows(2).Columns(1).Value
MsgBox sValue

xlBook.Save
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

PS. Please make sure to update the Workbook path and the Sheet name before using the above 2 snippets.

Thanks

can u suggest me any answer for 2nd one?

Thanks
arpita

With QTP, you can retrieve the entire sheet and import it to the DataTable. If you just want to retrieve a single cell, then you can use the following:

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\Test.xls") 'remember to update the correct path
Set xlSheet = xlBook.WorkSheets("Sheet1")

theValue = xlSheet.Rows(1).Columns(1).Value

xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

I’m not sure if I understood your question. Can you please elaborate?

I went through all your posts and comments. All these are quite elaborate. I may ask you some irritating questions, please answer me those with example.

What is Action parameters, datatable parameters, How it is useful in Parameterization. Could you please provide your answer with examples.

Thanks
Deepak

sUserName = for this variable we are getting data from excelsheet from step 1-5

1) if 1 or 2 set control means no problem
1) If there are many set control in a program, then what we have to do

You can setup your DataTable to have the following values:

Abc def 463.*
Abc def 465.*
Abc def 465\.\d+

and see how to use ReGex with the Select method in this article.

I need a solution to for using wild card for parametrization in datasheet.
I have a dropdown which has some values which have been parametrised to be picked up from the data sheet.
Everything is fine upto this point. The problem now arises when the data in the dropdown is dynamic and changes with each run.

e.g. if i am trying to use just “one” vlaue in the drop down everytime I run it, it looks like this

For 1st run: Abc def 463.98
For 2nd run: Abc def 465.34

First few characters(in this case first 8 characters) will “always” remain constant for all the runs. And just to reiterate I can safely ignore the variable part (last 6 characters) in all my runs.

Question is – How can I use a wild card kind of thing in the datasheet so that it will work with each run.

Any help from your side is greatly appreciated.

-Thanks
Al

Thanks for your reply. Sometimes after deleting the empty rows also it is trying to process on the empty rows. We don’t know the exact reason why it is happening. Can we do something with QTP/VB scripting to handle this. The problem occuring during the regression, some of the modules is stucking up on empty rows and test is not going to next module due to this. I hope this can be handled through script.

With best regards

Rohan

Open the Excel sheet, select the last few empty rows and delete them. Even if you have accessed an Excel cell, which may have been left empty will be counted as a used cell. Either that, or you will have to check each data retrieved is null or not. I think deleting all the empty rows towards the end is going to be a better approach though.

What is the code that you tried? Excel COM object will be required to retrieve data, and you may need to run it in a loop in order to parametrize it.

I will tried playing your code by getting the values from excel with 3 columns (Roles, Username, Password) but was getting no results.
I am still trying, but if I can use your expertise I would really appreciate.

Regards

Mohit Chopra

Function CheckValue(sValue, sFileName, vSheet)
	Dim xl, book, sheet, range, found

	CheckValue = False

	Set xl = CreateObject("Excel.Application")
	Set book = xl.Workbooks.Open(sFileName)
	Set sheet = book.Worksheets(vSheet)
	Set range = sheet.UsedRange

	Set found = range.Find(sValue)

	On Error Resume Next
		If Not found Is Nothing Then CheckValue = True
	On Error Goto 0

	book.Close
	xl.Quit

	Set sheet = Nothing
	Set book = Nothing
	Set xl = Nothing
End Function

Usage:

MsgBox CheckValue("10", "C:\Test.xls", "Sheet1")

You can try something like this:

Function Login(sRole)
	Dim Roles, Keys, ix

	Set Roles = CreateObject("Scripting.Dictionary")
	Roles.Add "Manager", "Username|Password"
	Roles.Add "Accountant", "Username|Password"

	Keys = Roles.Keys

	For ix = 0 to Roles.Count - 1
		If LCase(sRole) = LCase(Keys(ix)) Then
			sUserName = Split(Roles.Item(Keys(ix)), "|")(0)
			sPassword = Split(Roles.Item(Keys(ix)), "|")(1)
		End If
	Next

	If sUserName <> "" And sPassword <> "" Then
    	Browser().Page().WebEdit().Set sUserName
		Browser().Page().WebEdit().Set sPassword
	End If

	Set Roles = Nothing
End Function

Usage:

Login "Manager"
Login "Accountant"

If you’re trying to change the name of the sheet, you can follow this code:

Set xl = CreateObject("Excel.Application")
Set book = xl.Workbooks.Open("C:\Test1.xls")

book.Worksheets("Sheet1").Name = "Registration"

book.Save
book.Close
xl.Quit

Set book = Nothing
Set xl = Nothing

If you would like to change multiple sheet names at once, you can create a Scripting.Dictionary and add the present sheet names and the names that you would like to change like this:

Set sheets = CreateObject("Scripting.Dictionary")
sheets.Add "Sheet1", "Registration"
sheets.Add "Sheet2", "Management"

Set xl = CreateObject("Excel.Application")
Set book = xl.Workbooks.Open("C:\Test1.xls")

keys = sheets.keys
items = sheets.items

For ix = 0 to sheets.Count - 1
	book.Worksheets(keys(ix)).Name = items(ix)
Next

book.Save
book.Close
xl.Quit

Set book = Nothing
Set xl = Nothing

Actual QTP script,

so when I call login(Manager), it should get the values of Manager (ABC and XYZ ) and put that for the same user name and password.
browser().Page().Webedit().Set Username (from that function)
browser().Page().webedit().set password ( from that function)
click.login

I would appreciate your earliest response.

Thanks Anshoo

Would you like to move all sheets to a single workbook through QTP? Or, would you like to add a new sheet each time your test is run with a different name?

I had a query regarding Excel, Currently i created a some modules as individual QTP scripts and every module has its own excel file as test data in “Sheet1″ of corresponding excel. I would like to merge all the test data excel files into one master excel file with different sheet names and use them in my tests like sheet1 would be renamed “Registration” Sheet2 will be renamed to “Management” etc…..Could anybody have any idea how this can be implemented in QTP.

Thanks in advance

Rohan

Thanks anshoo for your reply.
I think i found the problem for this. After i run with 100 rows of data, at certain point above 80 rows it is hanging on the script. It looks like a bug in the application not QTP because, From the point where it stopped i did a navigate and learn and it is capturing the same objects for 83 rows. Fo example there is a Help button on side bar, but it captured it for more than 80 times as object. And when i clicked the button “Highlight in Application” in object repository manager, to test some of the objects it is trying to capture the objects which were not visible on the screen, but it is trying to highlight.

Thanks

Deepak

Not sure what the issue can be. It can be multiple things. If you have eliminated all user error possibilities, and feel its a QTP issue, then you may need to contact HP support to get this resolved.

I have tried it with different sets of data. It exactly stopped there. It is not a data related issue.

Thanks for yoiur promt reply

I will try to write an article on working with XML files though, which should cover this as well.

I have got a strange question for you. We have been working on a Java based applet application, We are using QTP 10.0 with Java addin and all the java patches. we are using excel to populate the data, we have tested this application for hundreds of times with some data, but when we suddenly increased the number of rows of data, it is exactly stopping at row 83, We have tested with different sets of data. It is stopping exactly at row 83. My question is while the excel spreadsheet is loading the data in data table and run the test, Is there any limits that were there on the data table to handle the data, Is it a memory related issue with data table. Is there any solution to fix these kinds of strange behaviours of Excel sheet / QTP Data table. (There is absolutely nothing wrong in the data we entered for all the columns, it is working fine for upto row 82, when it comes to row 83 it is stopping on some object)

Have you guys experienced like this scenario before

Thanks,

Deepak

We couldn’t find much information anywhere about the use of XML file as Test Data for large sets of data.

DO you have any plans of including this in your website. Thanks in advance.

Deepak

try this:

Set oExcel = CreateObject("Excel.Application")
Set oWorkbook = oExcel.Workbooks.Open("C:\TestExcel.xls")
Set oWorksheet = oWorkBook.Worksheets("Sheet1")

oWorksheet.Rows(2).Columns(2).Value = Variable

oWorkbook.Save
oExcel.Quit

Set oWorksheet = Nothing
Set oWorkbook = Nothing
Set oExcel = Nothing

Thanks for your email, Great job. I got query regarding one of the scenario, I want to place one variable (which will be generated runtime), Currently i am capturing that variable and using the MsgBox to display that variable. but i wnated that variable to be moved into excel file TestExcel.xls into Sheet1 and Row 2, Column = 2 .(This would be used to run next test)

Thanks in advance guys

Deepak

This code is working fine. But I am facing one problem, if the text be searched is in the following rows like in 1st Row, 25th Row and 90th Row then the below code first find all the text and then iterate the loop up to 90 times. This creates a performance issue.

Please suggest how we can setup our loop so that it can only be iterate as the number of Text to be searched.
For E.g: if in the file “Test123″ is placed only 4 places with in the 90 rows then loop should be iterate only 4 times.

For i = 0 to No_Rows-1

oCell.Interior.ColorIndex=40

‘MsgBox oCell.Column
‘MsgBox oCell.Row
Msgbox “No of Iteration #” &i

‘Notice the oCell here. The object reference has been used instead of the string
Set oCell = oRange.FindNext(oCell)

Next

Regards,
Devendra Sharma

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible=True
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
Set oRange = xlSheet.UsedRange

Set oCell = oRange.Find("Test123")

For i = 0 to 10
	oCell.Interior.ColorIndex=25

	MsgBox oCell.Column
	MsgBox oCell.Row

        'Notice the oCell here. The object reference has been used instead of the string
	Set oCell = oRange.FindNext(oCell)
Next

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set oRange = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

When I am executing the below code, it thows the following error message.

ERROR: Unable to get the FindNext Property of the Range Class.

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible=True
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
Set oRange = xlSheet.UsedRange

For i=0 to 10 

Set oCell = oRange.Find("Test123")
oCell.Interior.ColorIndex=25
MsgBox oCell.Column
MsgBox oCell.Row

Set oCell=oRange.FindNext("Test123")

Next

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set oRange = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Thanks,
Devendra Sharma

You can use .FindNext to find the next occurrence of the string.

UserName | Password | Age | Gender | SSN
dsharma	| Test123	|   25     |	M    | 123-456-7890
pdixit	| Test123	|   20     |     M    | 109-874-5790

UserName	  Password	       Age	Gender	SSN
dsharma	  Test123	       25	M	123-456-7890
pdixit	  Test123	       20	M	109-874-5790

“.Find” method gives only the First occurance of the Pasword “Test123″, now I want to get all the occorance of the password “Test123″. I feel we can do this with the help of “.FindNext” method. It would be nice, if you could please expain “.FindNext” method.

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
Set oRange = xlSheet.UsedRange

Set oCell = oRange.Find("Test123")
MsgBox oCell.Column
MsgBox oCell.Row

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set oRange = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Regards,
Devendra Sharma

The .Find method returns the ‘Found Cell’ object. This can be converted into its respective Column/Row values. For example, if you have an Excel sheet with the following cells:

UserName | Password | Age | Gender | SSN

and you would like to find the destination cell for Password, you could use the find in the following manner:

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
Set oRange = xlSheet.UsedRange

Set oCell = oRange.Find("Password")

MsgBox oCell.Column
MsgBox oCell.Row

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set oRange = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

This will give you the corresponding Row and Column entities for the string.

I got a chance to visit the “.Find” method like: “Obj_WSheet.UsedRange.Find ()” to find the Text from the WorkSheet.
It would be nice, if you could explain this method.

Thanks in Advance!!

Regards,
Devendra Sharma

The advanced articles on this topic should be out soon :)

Thank you. :)

I have a few drafts that I need to finalize. They should be out soon :)

There are several things to consider if the URL changes:

1. Are the object descriptions changing?
+ If no, then only the URL would need to be parameterized. The new table will now look like this:

+ If yes, the object descriptions would need to be parameterized along with the URL. The new table will now look like this:

Great Article!!!
We are looking forward for Advanced Articles.