Please check below code,
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://dell13-comm.in.msn.com/?pc=MDDRJS&ocid=DELLDHP";
Do Until objIE.ReadyState = 4
WScript.Sleep 100
Loop
objIE.Navigate "http://www.google.com";
Do Until objIE.ReadyState = 4
WScript.Sleep 100
Loop
set savedata=objIE.document.body
stest= savedata.innerHtml
set fso=createobject("scripting.filesystemobject")
set f=fso.createTextfile("D:\QTP.txt")
set ff=fso.opentextfile("D:\QTP.txt",2,true)
ff.writeline stest
msgbox "done"
ff.close
On Tue, Jul 2, 2013 at 10:57 AM, uma mahesh <[email protected]> wrote:
> For reading URL from the excel sheet and open that url you can use the
> below script.
>
> Set objExl=CreateObject("Excel.application")
> Set objWb=objExl.Workbooks.Open("Path of the excel sheet")
> Set objWsht=objWb.Sheets("Sheet1")
> 'address of the cell(1,1)
> URL=objWsht.cells(1,1).value
>
> SystemUtil.CloseProcessByName "iexplore"
> SystemUtil.Run "iexplore", URL, , , 3
>
>
>
> Please let me know how to save??
>
> Regards
> Uma Mahesh
>
>
>
> On Tue, Jul 2, 2013 at 10:33 AM, Ravi kiran <[email protected]>wrote:
>
>> Suryakantha,
>> I think you are expecting opened webpage Save as to local drive
>> mentioned in the specified path right
>>
>>
>> On Tue, Jul 2, 2013 at 10:29 AM, Gautham Maroli <[email protected]
>> > wrote:
>>
>>> where in Local desktop.. do u want to store it in an Excel, Notepad
>>> ...word ????? any specific path in the Local Desktop :? for example
>>> C:\QTPTEST\?
>>>
>>>
>>> On Tue, Jul 2, 2013 at 1:33 PM, Suryakanta Beura <
>>> [email protected]> wrote:
>>>
>>>> I want to save that web page in my local PC (in desktop).
>>>>
>>>> On Monday, 1 July 2013 18:42:59 UTC+5:30, uma mahesh wrote:
>>>>
>>>>> Saving URL in local drive means in which it has to be saved??
>>>>>
>>>>>
>>>>> On Mon, Jul 1, 2013 at 6:27 PM, Suryakanta Beura <[email protected]
>>>>> > wrote:
>>>>>
>>>>>>
>>>>>> Hi All,
>>>>>>
>>>>>> I need QTP script for the following requirement
>>>>>>
>>>>>> 1.Read URL from a Excel
>>>>>> 2.Open the same URL
>>>>>> 3.Save the same URL /page in your local drive
>>>>>>
>>>>>>
>>>>>> Regards,
>>>>>> Surya
>>>>>>
>>>>>>
>>>>>> --
>>>>>> --
>>>>>> 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
>>>>>> MercuryQTP+...@**googlegroups.com
>>>>>>
>>>>>> For more options, visit this group at
>>>>>> http://groups.google.com/**group/MercuryQTP?hl=en<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 mercuryqtp+...@**googlegroups.com.
>>>>>>
>>>>>> For more options, visit
>>>>>> https://groups.google.com/**groups/opt_out<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.
>>>
>>>
>>>
>>
>> --
>> --
>> 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.
