Thanks Ramesvar, Its working
Aneel On Sun, Jun 16, 2013 at 8:25 PM, Ramesvar GV <[email protected]>wrote: > use below query to terminate the process from task manager > > strComputer = "." > Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") > > Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process > Where Name = 'Excel.exe'") > For Each objProcess In colProcesses > objProcess.Terminate() > Next > > > On Sun, Jun 16, 2013 at 12:16 PM, Aneel <[email protected]> wrote: > >> Hi All Experts, >> >> I want to close all excel sheet that i opened through VB script. >> I am using below code for fetching the data from excel but after >> executing the code i observed the Excel.exe still displays in Task Manager >> >> For Ex. >> Set objFSO = createobject("Scripting.Filesystemobject") >> Set objexcel = createobject("Excel.Application") >> If objFSO.fileexists("C:\aneel.xlsx")Then >> objexcel.workbooks.open("C:\aneel.xlsx") >> strrowcnt= objexcel.worksheets("Login Sheet").usedrange.rows.count >> strcolcnt= objexcel.worksheets("Login Sheet").usedrange.columns.count >> For I= 1 to strrowcnt >> For J = 1 to strcolcnt >> Strval = objexcel.worksheets("Sheet1").cell(i,j).Value >> msgbox Strval >> Next >> Next >> >> >> Set objFSO = Nothing >> Set objexcel = Nothing >> >> Thanks and Regards, >> Aneel >> >> -- >> -- >> 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/groups/opt_out. >> >> >> > > -- > -- > 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/groups/opt_out. > > > -- -- 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/groups/opt_out.
