I need to extract specific data from a web page I have pasted into Excel.
The page contains many hyperlinks and objects like pictures, controls,
embedded controls related to 'flash player' as well as the required data.
I've tried the following simplistic "code". The hyperlinks remove OK but the
rest of the code results in a lock up and enforced shutdown.
Since I have no way of referencing the required data eg by name, I need to
remove all the "clutter" then I can manipulate what's left to get what I need.
On Error Resume Next
ActiveSheet.Hyperlinks.Delete
For Each Control In ActiveSheet.Controls
Control.Select
Control.Delete
Next Control
For Each Picture In ActiveSheet.Pictures
Picture.Select
Selection.Delete
Next Picture
For Each Shape In ActiveSheet.Shapes
Shape.Select
Selection.Delete
Next Shape
End Sub
--
donwb
Bookmarks