HiI think you need to write statement like MyExcel.applications.Visible = True Please check and let me know. Thanks, Ajay
From: [email protected] Sent:Wed, 08 Jun 2016 17:38:00 +0530 To: QTP - HP Quick Test Professional - Automated Software Testing [email protected] Subject: Re: How to activate excel sheet For Doc Activate------------------------------Set Obj=CreateObject("Wscript.shell")Obj.AppActivate "Document" ///First name of the Document like if the name is 'QTP Test', dn Put Obj.Appactivate "QTP"****************************************************Sheet Activate.----------------------------------------------XLobject.ActiveWorkbook.Sheets(2).Select /// instead od 2 , u can also gv the name of the sheet like "QTPTestDriver" >*************************************** >If this was you answer dn fine else pls clarify the question. :) >On Wednesday, June 8, 2016 at 2:53:35 AM UTC+2, [email protected] wrote:Hi, >I'm running the following steps to open an excel sheet and then add values >to few cells and then save.My question is how to activate the sheets? When I >run this test, it doesn't visually show numbers being added but I know >numbers are added.You know how we can Activate a word document, can we do the >same with excel sheets? >Thanks >'Excel object created here > Set MyExcel=CreateObject("Excel.Application") > MyExcel.Visible = True > 'File_1 is opened > Set WBOOK_1=MyExcel.workbooks.open ("C:\file.xlsx") > > > 'Cells in sheet 1 and sheet 2 are compared > Set WBOOK_1= WBOOK_1.Worksheets(1) > Set WBOOK_2= WBOOK_1.Worksheets(2) > > For Each cell In WBOOK_1.UsedRange > If cell.value <> WBOOK_2.Range(cell.address).value Then > 'add a number here > Else > 'add a differnt number > End If > > Next -- > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > > --- > You received this message because you are subscribed to the Google Groups > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/d/optout. > -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
