Wednesday, July 17, 2013

Extracting text from a bunch of =EMBED(“Forms.HTML:Text.1”,“”) in Excel 

Sub ExtractData()
Dim obj

    For Each obj In ActiveSheet.OLEObjects
        If obj.progID = "Forms.HTML:TextArea.1" Then
            me.Range("A1").Value = obj.Object.Value 
             ''' change the Range as required
        End If
    Next o
End Sub
at

No comments:

Post a Comment

Your feedback is always appreciated. I will try to reply to your queries as soon as time allows.Please don't spam,spam comments will be deleted upon reviews.