Web Linker gjenspeiler ofte katalogstrukturen på nettsiden. For eksempel refererer " http://example.com/images " til en mappe som heter "bilder " i rotmappen på " example.com " nettsted . Å automatisk lage hyperlenker ved å skanne en katalog struktur og bruker navnene på mappene innenfor hyperlenker , gir VBA Fil System Object . FSO lar deg lese mapper og filer og hente egenskaper, for eksempel navnene deres. Med et VBA script i et Excel-regneark , kan du lage et sett med hyperlenker basert på mappenavn i en katalog struktur . Instruksjoner
en
Launch Excel til å vise en blank arbeidsbok . Lagre arbeidsboken som en makroaktivert arbeidsbok slik at du kan lagre og kjøre VBA scripts i den. Velg "File " og " Lagre som .. ", skriv inn et filnavn , velg " Makroaktivert Excel- arbeidsbok ( * . XLSM )" som filtype og klikk " Lagre".
2
Velg " Developer " fra de viktigste bånd bar , og velg deretter " Visual Basic" fra utbygger bånd bar .
3
Opprett en VBA script for å skanne alle mapper i en katalog , inkludere navnet på mappen i en kobling og sette inn koblingen i Excel-arbeidsboken . Start med å lage subrutinen . Type:
Sub FolderLinks ( )
4
Erklærer en variabel til å lagre filen system objekt, en variabel til å lagre start -mappen , en variabel til å lagre hver undermappe , en teller for antall mapper du finner og en streng som inneholder koblingen du oppretter. Type:
Dim FSO som ny FileSystemObjectDim mapper Som FolderDim undermappe Som FolderDim teller som Integer = 0Dim lenke As String
5
Få den første mappen for å starte skanningen . Type:
Set mapper = fso.GetFolder ( "D: \\ brukere \\ steve \\ dokumenter ")
6
Lag en løkke , og få hver undermappe i mappen. Type:
For hver undermappe I folders.Subfolders
7
Monter koblingen strengen ved hjelp av en ampersand til sammen understrenger . Få navnet på mappen fra "Name " eiendom på undermappen . Type:
link = " " & subfolder.Name & " < /a >"
8 Increment tellingen og sette cellen i raden antall som tilsvarer antallet til koblingen streng. Type:
teller = teller + 1Cells ( teller, 1 ) = lenke
9
Steng sløyfen og avslutter subrutinen . Type:
Neste subfolderEnd Sub
10
Velg " Fil" og " Lagre". Velg " Run " og " Run Sub /Bruker Form " for å kjøre VBA script . Bytt tilbake til arbeidsboken for å se resultatene .
