Länkar ofta återspeglar katalog strukturen på webbplatsen . Till exempel står " http://example.com/images " till en mapp som heter " bilder " i rotmappen " example.com " hemsida . Att automatiskt skapa hyperlänkar genom att skanna en katalogstruktur och använda namnen på mapparna i hyperlänkar , ger VBA Object File System . FSO kan du läsa mappar och filer och hämta egenskaper, såsom deras namn . Med ett VBA skript i ett Excel -kalkylblad , kan du skapa en uppsättning hyperlänkar baserat på mappnamn i en katalogstruktur . Instruktioner
1
Launch Excel för att visa en tom arbetsbok . Spara arbetsboken som en makroaktiverat arbetsbok så att du kan lagra och köra VBA-skript i det . Välj " File " och " Spara som .. ", skriv ett filnamn , välj " Excel Makroaktiverad arbetsbok ( * . Xlsm ) " som filtyp och klicka på " Spara ".
2
Välj " Utvecklare " från den huvudsakliga bandet bar , och välj sedan " Visual Basic " från utvecklaren band bar .
3
Skapa en VBA skript för att skanna alla mappar i en katalog , införliva mappnamnet i en länk och infoga länken i Excel- arbetsboken . Börja med att skapa en subrutin. Typ :
Sub FolderLinks ( )
4
Deklarera en variabel för att lagra objektet filsystemet , en variabel för att lagra start mapp , en variabel för att lagra varje undermapp , en räknare för antalet mappar du hittar och en sträng som innehåller länken du skapar . Typ :
Dim FSO Som New FileSystemObjectDim mappar Som FolderDim undermapp Så FolderDim räknas som Integer = 0Dim länk As String
5
Få den första mappen att börja skanningen . Typ :
Set mappar = fso.GetFolder ( "D: \\ users \\ steve \\ dokument " )
6
Skapa en loop , och få varje undermapp i mappen . Typ :
För varje undermapp i folders.Subfolders
7
Montera kopplingen strängen med ett &-tecken för att sammanfoga delsträngar . Få namnet på mappen från " Name " egendom undermapp . Typ :
link = " " & subfolder.Name & " < /a > "
8 Tillväxt räkningen och ställa cellen i raden nummer som motsvarar räkningen till länken strängen . Typ :
count = count + 1Cells ( count , 1 ) = link
9
Stäng slingan och avsluta subrutinen . Typ :
Nästa subfolderEnd Sub
10
Välj " File " och " Spara ". Välj " Run " och " Run Sub /Användare Form " för att köra VBA skript . Växla tillbaka till arbetsboken för att se resultaten .