Avatar billede mrkr Juniormester
26. juli 2021 - 20:58 Der er 1 løsning

Forbedre VBA kode til hyperlinks af filer i mappe og undermappe

Hej

Jeg har denne kode som fint laver en liste med hyperlinks ud fra en given mappe.

Jeg kunne rigtig godt tænke mig at den også listede filer fra subfolders.

Kan det lade sig gøre ville det være super hvis den skriver subfolder navnet med i hyperlinket, så det let kan ses at det er en fil i en sub folder.


Sub LaveListeMedFiler()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Dim filsti As String

Application.ScreenUpdating = False
' vis arket med links og nulstil
    Sheets("LinksFiler").Select
    Range("A1:A500") = ""
     
   
On Error GoTo år_ikke_oprettet
' lav ny liste med links
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

filsti = ("F:\DOKUMENT\" & Sheets("dashboard").Range("kundenr") & "\2020\")
'Get the folder object
Set objFolder = objFSO.GetFolder(filsti)
'Set objFolder = objFSO.GetFolder("F:\DOKUMENT\0000 SØNDERUP\Regnskabsgeneratorer Excel")

i = 1
'loops through each file in the directory
For Each objFile In objFolder.Files
'select cell
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
'create hyperlink in selected cell
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
objFile.Path, _
TextToDisplay:=objFile.Name
i = i + 1
Next objFile

Application.ScreenUpdating = True
 
Exit Sub

år_ikke_oprettet:

End Sub
Avatar billede mrkr Juniormester
28. juli 2021 - 19:50 #1
Jeg har fundet en hel  anden kode som kan løse problemet,
Denne kommer i et nyt spørgsmål
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester