Welcome to the IMTalk - Internet Marketing & SEO Forum.
+ Reply to Thread
Results 1 to 3 of 3
  1. #1
    LeeStewie's Avatar
    LeeStewie is offline IM & SEO Weak Jaw LeeStewie will become famous soon enough
    Join Date
    Aug 2011
    Derbyshire, UK
    Thanks Given
    Thanked 50 Times in 32 Posts

    Free Link Stripper for links2rss

    Hi Guys,

    Not sure how many of you out there use links2rss for creating rss feeds out of all of your backlinks, but it's something I've recently started doing.

    When you're doing this for hundreds of backlinks, I found it really tiresome in order to actually get a list of all of the URLs produced as sometimes there's hundreds of feeds and manually copying each link into another file is annoying and a waste of resource.

    I've just created a very simple excel macro to run through a list and strip out the urls - so you can have quick and easy access to the urls to do whatever you need to do with them (i.e. submitting them elsewhere)

    This may not be of use to anyone at all, but I thought I'd share it as I'd done it and I know it'll save me time if no one else!! Here is the very basic code:

    Sub RSSStripURL()
    Application.ScreenUpdating = False
    messager = MsgBox("Have you copied the source code of the links2rss.com feeds?", vbYesNo, "Continue?")
    If messager = vbNo Then GoTo ending
    On Error GoTo pasteerror
    On Error GoTo 0
    'run through
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Row = 1
    Do Until Row = LastRow + 1
        If Left(Cells(Row, 1), 4) <> "Feed" Then
        Cells(Row, 1).Delete shift:=xlUp
        LastRow = ActiveSheet.UsedRange.Rows.Count
        Cells(Row, 2).Formula = "=GetAddress(A" & Row & ")"
        Row = Row + 1
        End If
    messager = MsgBox("Succesfully completed!", vbOKOnly, "Success!")
    GoTo ending
    messager = MsgBox("Unable to paste - are you sure the data is on the clipboard?", vbOKOnly, "Error")
    GoTo ending
    Application.ScreenUpdating = False
    End Sub
    Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
    End Function
    To use this, you simply paste into any module within your Visual Basic Editor in Excel (Alt F11). I have mine added to my own add-in menu so I can simply select the macro from the Excel toolbar which again, makes the process even more efficient! A simple guide to adding the macro into your Excel workbook can be found here: http://www.contextures.com/xlvba01.html

    Anyway, if this is of any relevance/use - enjoy!
    Last edited by LeeStewie; 09-16-2012 at 10:36 AM.

  2. The Following 4 Users Say Thank You to LeeStewie For This Useful Post:

  3. #2
    bluearrow's Avatar
    bluearrow is offline IM & SEO Chatty bluearrow is just really nice bluearrow is just really nice bluearrow is just really nice bluearrow is just really nice
    Join Date
    Feb 2011
    Mount Olympus
    Thanks Given
    Thanked 355 Times in 262 Posts
    This is nice ! Could you make a small tutorial for how to do it ? I'm not good with Excel and I'm sure they are plenty of others who are same.

    PS- ahh figured out.

  4. The Following User Says Thank You to bluearrow For This Useful Post:

  5. #3
    asghar's Avatar
    asghar is offline IM & SEO Mumbler asghar will become famous soon enough
    Join Date
    Jan 2011
    Thanks Given
    Thanked 86 Times in 72 Posts
    Lee thanks for this help, I love it, let me check it out, if I get an error I will contact you


Similar Threads

  1. Link Exchange Free
    By darmawanputu in forum Links
    Replies: 12
    Last Post: 10-04-2012, 08:15 AM
  2. Replies: 10
    Last Post: 07-26-2012, 06:12 AM
  3. Free Back link
    By SeoTube in forum Free Stuff
    Replies: 57
    Last Post: 07-05-2012, 06:25 AM
  4. Replies: 0
    Last Post: 10-12-2011, 07:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts