Hi every body, I am new to QTP.pls help me if anybody knows the solution. Her

Hi every body, I am new to QTP.pls help me if anybody knows
the solution.
Here is my doubt:
I have 3 excel sheets in my local drive out of which one is
password protected and i want to get the data of all these
xL's either by importing or by reading the data finally i
have to update this data in the website.(and the site is
secured site)

I tried by importing all XL"s one by one but couldn't do so.
plss send me the code or atleast suggest me the approach.
Thanks in Advance
Padmaja

Question Posted / padmaja

3 Answers
7363 Views
Symphony, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Hi every body, I am new to QTP.pls help me if anybody knows the solution. Here is my doubt: I ha..

Answer / sonia

Password protected files cannot be imported in QTP. First,
you have to modify the file permissions make
it ‘Unrestricted Access’. Then only you can work that file.

Is This Answer Correct ?

2 Yes

0 No

Hi every body, I am new to QTP.pls help me if anybody knows the solution. Here is my doubt: I ha..

Answer / swapna

Hi ,
There is simple solution which you need to do is try to
access the excel through by creating the object.
See sample script
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Function HomePage()
Dim fso, Root, HtmlResFile
Dim appExcel
'Defining the File object
Set fso = CreateObject("Scripting.FileSystemObject")
Set appExcel = CreateObject("Excel.Application")

'Setting the path
'Root = "C:\\Documents and Settings\\sragi\\Desktop\\MCGATF-
WALTHAM\\KR2xRegressionSet_Framework\\"
'Root = App.Path + "\KR2xRegressionSet_Framework"
Root = App.Path
ExcelPath = Root + "\\Qtp_Excel_Results\\Results.xlsx"
'Creating html file
Set HtmlResFile = fso.CreateTextFile(Root
+ "\Qtp_Html_Results\Regression_Summary_Results.html",
True, False)
'Closing the Html created file
HtmlResFile.Close
'Opening the above created html file for writing
Set HtmlResFile = fso.OpenTextFile(Root
+ "\Qtp_Html_Results\Regression_Summary_Results.html", 2,
True)
Set appExcel = CreateObject("Excel.Application")
'Open the Result file
appExcel.Visible = True
Set objWorkBook = appExcel.Workbooks.Open(ExcelPath)
'Open the Result file
Set objSheet = appExcel.Sheets(1)
objSheet.Select
With objSheet
TotalExecutedTcs = .Range("C7")
End With
For j = 11 To objSheet.UsedRange.Rows.Count
Status = objSheet.Range("G" & j)
If Status = "Pass" Then
Passcount = Passcount + 1
Else
Failcount = Failcount + 1
End If
Next

TotalPass_Percentage = Round((Passcount * 100) /
TotalExecutedTcs)

TotalFail_Percentage = Round((Failcount * 100) /
TotalExecutedTcs)

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

this function will read the data from the excel and reports
to the html output. This is not the direct solution of your
problem but the methods which are used will solve your
problem...

Search in google to read the excel which has password
protection. Already I have posted the code in the QTP Blog
earlier.... along with it you can get other experts code...

Thanks..
Happy learning...

Is This Answer Correct ?

0 Yes

1 No

Hi every body, I am new to QTP.pls help me if anybody knows the solution. Here is my doubt: I ha..

Answer / nani

Hi,
As per my knowledge.

generally you will know how to import the data from excel
sheet to web application right.
and you are saying one is password protected one so do one
thing for that one
you can write a script and give tha password then in the
general way you can import the data.

Is This Answer Correct ?

0 Yes

3 No

Post New Answer