ShtPath=Datatable.GetSheet("Global").GetParameter(1).ValueByRow(1) ''
Set MsXl=CreateObject("Excel.Application")
Set Mswk=MsXl.Workbooks.Open(ShtPath)
Set MsRes=Mswk.Worksheets("Results")
MsRes.Cells(2,1)="Login Form "
dateval=TimeValue(Now)
MsRes.Cells(2,3)=dateval
Mswk.Save
Mswk.close
Set MsXl=nothing
Set Mswk=nothing
Set MsRes=nothing
*Thanks...*
*Akhalesh*
On Wed, Oct 9, 2013 at 2:54 AM, Omprakash P <[email protected]> wrote:
> Hi,
>
> I wrote code to insert data in Cells Through QTP
> After Saving the document it is asking like already File Exist you want to
> replace it like that..
> After Saving the file it saved as read only.
> I need like this
> 1.After Saving it should not ask as file already exists like that
> 2.It Should be open at that time should not show as read only like that.
>
> I wrote bellow code
> ShtPath=Datatable.GetSheet("Global").GetParameter(1).ValueByRow(1) ''
> Set MsXl=CreateObject("Excel.Application")
> Set Mswk=MsXl.Workbooks.Open(ShtPath)
> Set MsRes=Mswk.Worksheets("Results")
> MsRes.Cells(2,1)="Login Form "
> dateval=TimeValue(Now)
> MsRes.Cells(2,3)=dateval
>
> Mswk.Save
>
> Thanking you
> Om Prakash
>
> --
> --
> 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.
>
--
Akhalesh yadav
+919555717928
+919310680659
--
--
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.
