nemadedurgesh
New Member
- Joined
- Dec 2, 2016
- Messages
- 5
Hi,
I need to copy and paste only header and description from explorer link. Below link extracts all test on explorer.
Expected Results as below-
[h=3]Kolkata gets best cities award for tackling climate change[/h]
[FONT="]Kolkata, along with 10 other cities from across the globe, has been honoured with the best cities of 2016 award in recognition of its programme on solid waste management. [/FONT]
[FONT="]Kolkata, the only Indian city to win the honour, received the award during the C40 Mayors Summit held in Mexico. Other cities which won the award include Copenhagen, Sydney, and Paris.[/FONT]
[FONT="]
[/FONT]
[FONT="]So, let's discuss some questions related to this post:[/FONT]
[FONT="]Q1. Name of the Indian city honoured with the best cities of 2016 award in recognition of its programme on solid waste management?[/FONT]
[FONT="]Ans1. Kolkata[/FONT]
=================================
VBA Script
=================================
Sub Test()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://currentaffairs.adda247.com/2016/12/kolkata-gets-best-cities-award-for.html" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop
x = .document.body.innertext
x = Replace(x, Chr(10), Chr(13))
x = Split(x, Chr(13))
Range("A1").Resize(UBound(x)) = Application.Transpose(x)
.Quit
End With
End Sub
==================================
I need to copy and paste only header and description from explorer link. Below link extracts all test on explorer.
Expected Results as below-
[h=3]Kolkata gets best cities award for tackling climate change[/h]
[FONT="]Kolkata, along with 10 other cities from across the globe, has been honoured with the best cities of 2016 award in recognition of its programme on solid waste management. [/FONT]
[FONT="]Kolkata, the only Indian city to win the honour, received the award during the C40 Mayors Summit held in Mexico. Other cities which won the award include Copenhagen, Sydney, and Paris.[/FONT]
[FONT="]
[/FONT]
[FONT="]So, let's discuss some questions related to this post:[/FONT]
[FONT="]Q1. Name of the Indian city honoured with the best cities of 2016 award in recognition of its programme on solid waste management?[/FONT]
[FONT="]Ans1. Kolkata[/FONT]
=================================
VBA Script
=================================
Sub Test()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://currentaffairs.adda247.com/2016/12/kolkata-gets-best-cities-award-for.html" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop
x = .document.body.innertext
x = Replace(x, Chr(10), Chr(13))
x = Split(x, Chr(13))
Range("A1").Resize(UBound(x)) = Application.Transpose(x)
.Quit
End With
End Sub
==================================