Convert URL Text to Individual URL Shortcut

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.

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Ray" <Ray.Woodcock@gmail.com> wrote in message
news:1150121734.406939.19380@i40g2000cwc.googlegroups.com...
>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?
>

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/communities...c-1c3bd832bbd6

Change the For loop to match the number of your entries.
--
Gary''s Student


"Ray" wrote:

> 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?
>
>

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