Vba macro to list all the wesbites in favourites

Dear experts,

I need a VBA macro which can list all the favourite sites saveed in the menu bar (chrone, windows8.1) and in the favourites.

If pssoble this should list the title name given and the url.

A related

What is the simplest way to delete a list of 100 favourite urls saved in favourities.

IS there a way to select all at once and delete rather delete each at a time, as this will consume lot of energy and time.

Thank you
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

The attached is a quick demo that imports chrome bookmarks with vba into an excel spreadsheet.

You need to manually enter the chrome directory.

Sub runme()

Dim bookdir As String
bookdir = Sheet1.Range("B1").Value

    If InStrRev(bookdir, "\", -1, vbBinaryCompare) <> Len(bookdir) Then
        bookdir = bookdir & "\"
    End If

    Dim oFSO As FileSystemObject
    Dim oFSTR As TextStream

    Set oFSO = New FileSystemObject
    Set oFSTR = oFSO.OpenTextFile(bookdir & "Bookmarks")
    SubjectString = oFSTR.ReadAll
    Dim titlestr As String, urlstr As String
    Sheet1.Range("A4", Sheet1.Cells(Sheet1.UsedRange.Rows.Count + 1, 2).Address).Clear
    Dim irow As Long
    irow = 3
    Dim myMatch As Match
    Dim myMatches As MatchCollection
    Dim myRegExp As RegExp
    Set myRegExp = New RegExp
    myRegExp.IgnoreCase = True
    myRegExp.Global = True
    myRegExp.Pattern = """name"": ""(.*)""[\w\W]*?""url"": ""(.*)"""
    Set myMatches = myRegExp.Execute(SubjectString)
    For Each myMatch In myMatches
        titlestr = myMatch.SubMatches.Item(0)
        urlstr = myMatch.SubMatches.Item(1)
        irow = irow + 1
        Sheet1.Cells(irow, 1).Value = titlestr
        Sheet1.Cells(irow, 2).Value = urlstr
        'matched text: myMatch.Value
        'match start: myMatch.FirstIndex
        'match length: myMatch.Length
        'backreference n text: myMatch.SubMatches(n-1)

End Sub

Open in new window

the other query will need to be started in a new question.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ExcellearnerAuthor Commented:

I was away travelling.

I presumed this question would be deleted due to my negligence. But EE has been very patient with.

I will try this during the weekend and will let you know how it goes.

Thank you
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Browsers

From novice to tech pro — start learning today.