Convert URL Text to Individual URL Shortcut

  • Thread starter Thread starter Ray
  • Start date Start date
R

Ray

I have a spreadsheet containing these two columns: Website, URL

In the Website column, I have entries like this:
1888PetMeds.com - America's Pet Health Resource

In the URL column, I have corresponding URLs like this:
http://1888petmeds.com/

I want to create an individual URL file, bearing the Website name, that
contains the URL contents. For example, the file with this name:
1888PetMeds.com - America's Pet Health Resource.url

would have these contents:

[InternetShortcut]
URL=http://1888petmeds.com/

when viewed in Notepad. I would then be able to click on the PetMeds
shortcut and watch as Firefox opens the PetMeds webpage.

My question: how can I convert each row of the spreadsheet so as to
create the corresponding URL shortcut file, as shown above?
 
If you type the url shown in blue below excel should make it a hyperlink
or you could use follow hyperlink within a double_click event and save some
typing.
 
Let's say that in column A we have URLs and in column B we have website names:


http://www.cnn.com news
http://www.microsoft.com microsoft

Then the following code:


Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String
For i = 1 To 2
Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
Cells(i, 2).Value & ".lnk")
With oShortcut
.targetpath = Cells(i, 1).Value
.Save
End With
Set oWSH = Nothing
Set oShortcut = Nothing
Next
End Sub

Will create two internet shortcuts on the desktop.

This is an adaptation of the code Bob Phillips posted last month.

http://www.microsoft.com/communitie...&p=1&tid=47d47262-06b4-4ee4-930c-1c3bd832bbd6

Change the For loop to match the number of your entries.
 
Thanks for these replies. I wish I were more comfortable with Excel
macros. I would have liked to try using this one for the problem.
Given my limitations, I defaulted to an older approach with which I am
more familiar. I have posted a writeup of my solution in
alt.msdos.batch, posted today, at this location:
http://tinyurl.com/ro7pe
 
Back
Top