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





Premium
Salesforce åbner europæisk supercloud: Vil holde al data i Europa - her bliver den nye løsning først tilgængelig
Salesforce er på vej med europæisk cloud-løsning, der skal holde alle data på europæisk jord. Selskabet begynder at udrulle løsningen om få måneder. Om et år vil seks europæiske lande være dækket.
Computerworld
Ny rekord: Her er elbilen med den længste rækkevidde / Få timer til at Apple er klar med ny iOS 15 / Teslas vilde model S Plaid sætter fantomtid på hæderkronet bane
CIO
“Der har simpelthen været for få gråhårede medarbejdere involveret i den her udviklingsproces. Folk der ved, hvad der skal til”
"Vi havde ansat nogle unge mennesker i sandaler og med langt skæg for at bryde med det traditionelle it-setup. De her vakse unge mennesker fik også ret hurtigt bygget en supersmart applikation til virksomheden. Men den brager ned, da vi ruller den ud, og den fylder cirka 1,5 procent af alle transaktioner."
Job & Karriere
35-årig kvinde gik amok på hjemmekontoret efter fyring: ”De fjernede ikke min adgang, så jeg slettede p-drevet lol”
En 35-årig kvinde står anklaget for at have slettet 21,3 gigabyte data fra fællesdrevet efter, at hun blev fyret. Nu risikerer hun op til 10 års fængsel.
White paper
Så stor er risikoen i virkeligheden for ransomware
Traditionel risk management undervurderer reelt risikoen for ransomware med op til 30%, men nye metoder kan give den fornødne indsigt.