weblinks Maak vaak een weerspiegeling van de directory -structuur van de website . Bijvoorbeeld , " http://example.com/images " verwijst naar een map genaamd " images " in de hoofdmap van de " example.com " website . Om hyperlinks door het scannen van een directory -structuur en het gebruik van de namen van de mappen in de hyperlinks automatisch maken , VBA geeft de File System Object . FSO kunt u mappen en bestanden te lezen en op te halen eigenschappen , zoals hun namen . Met een VBA- script in een Excel-spreadsheet , kunt u een set hyperlinks op basis van de map namen in een directory -structuur te creëren . Instructies
Launch 1 Excel een lege werkmap bekijken . Sla de werkmap op als een macro -enabled werkboek zodat je VBA- scripts kunt opslaan en uitvoeren in het. Kies " File " en " Save As .. ', typ een bestandsnaam , selecteer ' Excel -werkmap met macro ( * . Xlsm )" als het bestandstype en klik op 'Opslaan'.
< br > 2 Selecteer "Ontwikkelaar " van het belangrijkste lint bar , en kies vervolgens " Visual Basic " van de ontwikkelaar lint bar .
3 Maak een VBA script te scannen alle mappen in een map , voorzien van de naam van de map in een link en voeg de link in de Excel-werkmap . Begin met het maken van de subroutine . Type : Sub FolderLinks
( )
4 Declareer een variabele om het bestandssysteem object , een variabele op te slaan naar het startpunt map , een variabele voor elke submap te slaan , een teller van slaan het aantal mappen die u vindt en een string met de link die u maakt . Type : Dim fso
als Nieuwe FileSystemObjectDim mappen Zoals FolderDim submap Als FolderDim tellen als Integer = 0Dim koppeling als Koord
5 Verkrijg de eerste map om de scan te starten . Type :
Set mappen = fso.GetFolder ( " d : \\ users \\ steve \\ documents " )
6 Maak een lus , en krijg elke submap in de map . Type :
voor Elke submap In folders.Subfolders
7 Monteer de koppeling string met behulp van een ampersand om subtekenreeksen samen te voegen . Krijgen de naam van de map in de " Naam " eigendom van de submap . Type : koppeling
= " " & subfolder.Name & " < /a > "
Increment 8 de graaf en zet de cel in de rij nummer dat overeenkomt met de telling om de link string. Type : count
= count + 1Cells (aantal , 1 ) = koppeling
9 Sluit de lus en het einde van de subroutine . Type :
Volgende subfolderEnd Sub
10 Selecteer " File " en "Save . " Kies " Run " en " Run Sub /User Form " om de run VBA script . Schakel terug naar de werkmap om de resultaten te bekijken .
|
