Thanks Ravi it worked.
On Friday, August 5, 2016 at 2:33:40 PM UTC+5:30, Ravikiran wrote:
>
> j=1
> k=1
> Set objExcel = CreateObject("Excel.Application")
> objExcel.Visible = False
> objExcel.Workbooks.Add
> strs="RavIkiranC"
> objExcel.Cells(1, 1).Value = "CapitalLetters"
> objExcel.Cells(1, 2).Value = "smallLetters"
> for i=1 to len(strs)
> strcar=mid(strs,i,1)
> if asc(strcar)>=65 and asc(strcar)<=91 then
> j=j+1
> objExcel.Cells(j, 1).Value = strcar
> Else
> k=k+1
> objExcel.Cells(k, 2).Value = strcar
> end if
> next
> objExcel.ActiveWorkbook.SaveAs ("C:\test\excelvbscript.xls")
> objExcel.Quit
>
>
>
> On Thu, Aug 4, 2016 at 9:58 PM, pradeep <[email protected]
> <javascript:>> wrote:
>
>> VB Script to separate upper & small Letters from a string and
>>
>> store in excel
>>
>> --
>> --
>> 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]
>> <javascript:>
>> To unsubscribe from this group, send email to
>> [email protected] <javascript:>
>> 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] <javascript:>.
>> 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.
