Re: Linking and opening jpeg files using hyperlinks/formulas

[Logit]

Option Explicit

Sub GetFileNames()
     
    Dim xRow As Long
    Dim xDirect, xFname$, InitialFoldr$
    Dim sn
    Dim i As Integer
    Dim d
    InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect = .SelectedItems(1) & "\"
            sn = Split(CreateObject("wscript.shell").exec("cmd /c dir " & xDirect & "/b/s").stdout.readall, vbCrLf)
            i = 2
            For Each d In sn
                ActiveSheet.Hyperlinks.Add Cells(i, "A"), d
                i = i + 1
            Next d
        End If
    End With
End Sub

[mazan2010]

how can use this code

[mazan2010]

i have lot f scanned file that i want to link it to excel cell (every scanned paper to appropriate cell )
this code can make this function or what

[Logit]

The project creates hyperlinks in COL A, beginning in A1 and down.

Try it and see.

[mazan2010]

what you mean by list file

[mazan2010]

i understand now but i have folder with lot of photo with sequential number and want to give it link

[Logit]

example:

Image2.jpg

[Logit]

Run the program on that folder.

[mazan2010]

Dear Logit
i try with my folder that contain jpg photo
but doen't happen
but when i try with folder named intel in drive C it's work and give me file with extension log
if your code for specific extension or how can change the extension

[Logit]

.
It is designed to accept any extension. Edits to the existing code is not required.

[mazan2010]

thank you for your reply
can please explain the code

[Logit]

Option Explicit

Sub GetFileNames()
     
    Dim xRow As Long
    Dim xDirect, xFname$, InitialFoldr$
    Dim sn
    Dim i As Integer
    Dim d
    InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
     
    With Application.FileDialog(msoFileDialogFolderPicker)     '<-- Opens the FileDialog window so you can select the file
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then     '<-- So long as a file is selected ( SelectedItems 'not equal' to nothing )
            xDirect = .SelectedItems(1) & "\"
            sn = Split(CreateObject("wscript.shell").exec("cmd /c dir " & xDirect & "/b/s").stdout.readall, vbCrLf)
            i = 2
            For Each d In sn
                ActiveSheet.Hyperlinks.Add Cells(i, "A"), d    '<-- Adds hyperlinks corresponding to each file located in the file you selected
                i = i + 1
            Next d
        End If
    End With
End Sub

[Logit]

Thanks for the add rep.