Listing Files % Folders to a spreadsheet in EXCEL 2010 1

[Walter349]

Seems the code has changed in EXCEL 2010.

The fully functional code I have always used before in 2003 version, no longer works in 2010.

Does anyone have any idea how this works now with Excel 2010? Tried the 'Holy Book of Google' no luck strangely enough. Lots of references to the old method, very little on 2010 and nothing that helps.

An example would be useful from anyone that knows.



'If at first you don't succeed, then your hammer is below specifications'

 

[strongm]

I thuink we may need more info ...

Like: what fully functional code?

 

[SkipVought]

@strongm, can't you envision his code? You must be slipping! ;-)

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strongm]

Heh!

 

[Walter349]

Sorry,

Not to have got back to this before now, but the issue got taken overtaken by other events. Solved the issue in another manner. But here's a thing.

I have this bit of code (Robbed from another author, don't know who) and I am trying to figure out how to include hyperlinking. so that the result builds a hyperlink on the spreadsheet.

    For Each f1 In fc
        Select Case Err
            Case 70  'Don't have access
                With Cells(R, 2)
                    .Value = "Access to this directory is denied"
                    .Font.ColorIndex = 3
                End With
                On Error GoTo 0
                Exit Sub
            Case 0  'Normal Access
                On Error GoTo 0
                R = R + 1
                With Cells(R, 1)
                    .Value = Folderspec(L)
                    .Font.ColorIndex = 15
                End With
                Cells(R, 2).Value = f1.Name
                Cells(R, 3).Value = f1.DateLastModified
                If IsCD Then
                Else
                    MaybeCD = True
                    Cells(R, 4).Value = f1.DateLastAccessed
                    MaybeCD = False
                End If
                Cells(R, 5).Value = f1.Size
            Case Else   'Not sure what this error would be
                Exit Sub
        End Select
        On Error Resume Next
    Next

Any ideas?

'If at first you don't succeed, then your hammer is below specifications'

 

[strongm]

Instead of

Cells(R, 2).Value = f1.Name

try

With Worksheets("<yoursheet>")
.Hyperlinks.Add Cells(R, 2), f1.path, , , f1.name
End With

 

[Walter349]

Hey,

Worked like a dream, SkipVought always says I over think these things.

Many thanks

'If at first you don't succeed, then your hammer is below specifications'