Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import Hyperlinks
What is the easiest way to import hyperlinks into a worksheet using VBA?
For example if a folder (say Favorites) contains 100 hyperlinks (shortcuts), I would like to populate a column of 100 cells each containing a hyperlink with the appropriate Address and TextToDisplay. -- Gary's Student |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import Hyperlinks
Hello GS (again)
If you don't need the actual code then my free Excel add-in "List Files" does what you want and it is very easy to use. You can download it from here... http://www.realezsites.com/bus/primitivesoftware Regards, Jim Cone San Francisco, USA "Gary''s Student" wrote in message What is the easiest way to import hyperlinks into a worksheet using VBA? For example if a folder (say Favorites) contains 100 hyperlinks (shortcuts), I would like to populate a column of 100 cells each containing a hyperlink with the appropriate Address and TextToDisplay. -- Gary's Student |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import Hyperlinks
This might not be the coolest method, but it works. Move to a blank
worksheet before running: Sub PostLinks() Dim strLink As String Dim lRow As Long lRow = 1 strLink = Dir("C:\Documents and Settings\KBackm00\Favorites\Links\*.*") Do Until strLink = "" Cells(lRow, 1) = strLink lRow = lRow + 1 strLink = Dir Loop strLink = ActiveCell.Value Do Until strLink = "" ActiveSheet.Hyperlinks.Add Anchor:=Selection, _ Address:=strLink ActiveCell.Offset(1).Select strLink = ActiveCell.Value Loop End Sub -- Kevin Backmann "Gary''s Student" wrote: What is the easiest way to import hyperlinks into a worksheet using VBA? For example if a folder (say Favorites) contains 100 hyperlinks (shortcuts), I would like to populate a column of 100 cells each containing a hyperlink with the appropriate Address and TextToDisplay. -- Gary's Student |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import Hyperlinks
Hi Gary,
The following seem to be working. You send a folder path and a range destination to the ListHyperlinks sub. The code opens each file in ".url" and extract the line starting with 'URL=' (Not sure if this is the syntax for all url files though). Finally it writes the hyperlink vertically in the sheet as a HYPERLINK function. Regards, Sebastien '--------------------------------------------------------------------------- Sub test() ListHyperlinks "C:\Temp\", Range("a1") End Sub Sub ListHyperlinks(path As String, Destination As Range) Dim file As String, strLine As String Dim CurCell As Range Dim found As Boolean If Destination Is Nothing Then Exit Sub Set CurCell = Destination 'fix path If path = "" Then path = CurDir() path = path & IIf(Right(path, 1) = Application.PathSeparator, "", Application.PathSeparator) 'loop through url files file = Dir(path & "*.url") Do While file < "" 'Read url file Open (path & file) For Input Access Read As #1 found = False Do While (Not EOF(1) And Not found) Line Input #1, strLine 'Extract url If strLine Like "URL=*" Then file = Left(file, Len(file) - 4) 'remove ".url" strLine = Right(strLine, Len(strLine) - 4) CurCell.Formula = "=HYPERLINK(""" & strLine & """,""" & file & """)" Set CurCell = CurCell.Offset(1, 0) found = True End If Loop Close #1 file = Dir() Loop End Sub '-------------------------------------------------------- -- Regards, Sébastien <http://www.ondemandanalysis.com "Gary''s Student" wrote: What is the easiest way to import hyperlinks into a worksheet using VBA? For example if a folder (say Favorites) contains 100 hyperlinks (shortcuts), I would like to populate a column of 100 cells each containing a hyperlink with the appropriate Address and TextToDisplay. -- Gary's Student |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Import Hyperlinks
Jim, Kevin, and Sebastien:
Thank you all very much. The time you have spent helping me with this and other issues has saved me many hours and has inspired me to try (in a small way) to help others. -- Gary''s Student "sebastienm" wrote: Hi Gary, The following seem to be working. You send a folder path and a range destination to the ListHyperlinks sub. The code opens each file in ".url" and extract the line starting with 'URL=' (Not sure if this is the syntax for all url files though). Finally it writes the hyperlink vertically in the sheet as a HYPERLINK function. Regards, Sebastien '--------------------------------------------------------------------------- Sub test() ListHyperlinks "C:\Temp\", Range("a1") End Sub Sub ListHyperlinks(path As String, Destination As Range) Dim file As String, strLine As String Dim CurCell As Range Dim found As Boolean If Destination Is Nothing Then Exit Sub Set CurCell = Destination 'fix path If path = "" Then path = CurDir() path = path & IIf(Right(path, 1) = Application.PathSeparator, "", Application.PathSeparator) 'loop through url files file = Dir(path & "*.url") Do While file < "" 'Read url file Open (path & file) For Input Access Read As #1 found = False Do While (Not EOF(1) And Not found) Line Input #1, strLine 'Extract url If strLine Like "URL=*" Then file = Left(file, Len(file) - 4) 'remove ".url" strLine = Right(strLine, Len(strLine) - 4) CurCell.Formula = "=HYPERLINK(""" & strLine & """,""" & file & """)" Set CurCell = CurCell.Offset(1, 0) found = True End If Loop Close #1 file = Dir() Loop End Sub '-------------------------------------------------------- -- Regards, Sébastien <http://www.ondemandanalysis.com "Gary''s Student" wrote: What is the easiest way to import hyperlinks into a worksheet using VBA? For example if a folder (say Favorites) contains 100 hyperlinks (shortcuts), I would like to populate a column of 100 cells each containing a hyperlink with the appropriate Address and TextToDisplay. -- Gary's Student |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to Start Excel in Text Import Wizard for data import | Setting up and Configuration of Excel | |||
Hyperlinks: Hyperlinks change on copy/paste? | Excel Worksheet Functions | |||
Update 2000 Excel hyperlinks to 2003 hyperlinks | Excel Worksheet Functions | |||
How toi turn-off hyperlinks [excel]? Email hyperlinks pop up ! | Excel Discussion (Misc queries) | |||
Excel Hyperlinks- cell content v. hyperlinks | Excel Discussion (Misc queries) |