Web links afspejler ofte mappestruktur af hjemmesiden. For eksempel henviser " http://example.com/images " til en mappe kaldet "billeder " i rodmappen af " example.com " hjemmeside . Til automatisk at oprette hyperlinks ved at scanne et mappestruktur og bruge navnene på de mapper i hyperlinks , VBA giver File System Object. FSO lader dig læse mapper og filer og hente egenskaber, såsom deres navne. Med en VBA script i et Excel-regneark , kan du oprette et sæt hyperlinks baseret på mappenavne i en mappestruktur. Instruktioner
1
Launch Excel til at se en tom projektmappe . Gem projektmappen som en makro -aktiveret projektmappe , så du kan gemme og køre VBA-scripts i det. Vælg "File" og "Gem som .. " skriv et filnavn , skal du vælge " Excel Macro -Enabled Workbook (*. Xlsm )" som filtype , og klik på " Gem".
< br > 2
Vælg "Udvikler " fra de vigtigste bånd bar , og derefter vælge " Visual Basic " fra udvikleren ribbon baren.
3
Opret en VBA script til at scanne alle mapper i et bibliotek , indarbejde mappenavnet i et link og indsætte linket i Excel-projektmappen. Start med at skabe underprogram. Type : Hej
Sub FolderLinks ()
4
Erklær en variabel til at gemme filsystemet objekt , en variabel til at gemme start mappe en variabel til at gemme hver undermappe , en tæller på antallet af mapper , du finder , og en streng, der indeholder det link, du opretter. Type : Hej
Dim FSO Som New FileSystemObjectDim mapper Som FolderDim undermappe Som FolderDim tæller som Integer = 0Dim link As String
5
Få den første mappe for at starte scanningen . Type : Hej
Set mapper = fso.GetFolder ( "D: \\ brugere \\ steve \\ dokumenter " )
6
Opret en løkke , og få hver undermappe i mappen. Type : Hej
For Each undermappe I folders.Subfolders
7
Saml link strengen ved hjælp af en tegn til at sammenkædes understrenge . Få navnet på mappen fra "Navn" ejendom undermappe . Type : Hej
link = " " & subfolder.Name & " "
8
Increment optællingen og sæt celle i rækken nummer, der svarer til optælling til linket strengen. Type : Hej
count = count + 1Cells (count , 1) = link
9
Luk loop og afslutte underprogram. Type : Hej
Næste subfolderEnd Sub
10
Vælg "File" og "Gem". Vælg "Kør" og "Kør Sub /User Form " for at køre VBA script. Skift tilbage til projektmappen for at se resultatet .