Ako vytvoriť hypertextové odkazy na názvy priečinkov pomocou jazyka VBA základe

Webové odkazy často odrážajú adresárovú štruktúru webových stránok . Napríklad , " http://example.com/images " odkazuje na zložku s názvom " obrazy " v koreňovom priečinku " example.com " internetové stránky . Ak chcete automaticky vytvoriť hypertextové odkazy skenovaním adresárovú štruktúru a použitie názvy zložiek v rámci hypertextové odkazy , VBA poskytuje možnosť Objekt systému súborov . FSO umožňuje čítať súbory a priečinky a načítať vlastnosti , ako sú ich mená . S skriptu VBA v tabuľke programu Excel , môžete vytvoriť sadu hypertextových odkazov na základe názvov zložiek v adresárovej štruktúre . Návod dovolená 1

spustení programu Excel zobraziť prázdny zošit . Uložte zošit ako povolenými makrami zošita , takže môžete ukladať a spúšťať VBA skripty v ňom . Zvoľte " Súbor " a " Uložiť ako .. " , zadajte názov súboru , vyberte " Excel Macro - Enabled zošit ( * . Xlsm ) " ako typ súboru a kliknite na tlačidlo " Uložiť " .

2

zvoľte " Developer " z hlavného pásu kariet , a potom vyberte " Visual Basic " od vývojárov páse kariet .
3

Vytvorte skript VBA pre skenovanie všetky zložky v adresári , zahrnúť názov zložky vo väzbe a vložte odkaz do zošita programu Excel . Začnite tým , že vytvorí podprogram . Typ :

Sub FolderLinks ( )
4

deklarovať premennú pre uloženie objektu systému súborov , premenné pre uloženie predvolený priečinok premennú pre uloženie každej podpriečinky , počítadla počet priečinkov nájdete a reťazec obsahujúci odkaz , ktorý vytvoríte . Typ :

Dim FSO ako nový FileSystemObjectDim zložiek , FolderDim podpriečinky ako gróf FolderDim ako Integer = 0Dim odkaz As String
5

Získať prvý zložku zahájite skenovanie . Typ :

Set zložky = fso.GetFolder ( " d : \\ users \\ steve \\ Documents " )
6

Vytvorte slučku , a dostanete každej podzložky v zložke . Typ :

každej podzložky v folders.Subfolders
7

Zostaviť prepojenie reťazec pomocou ampersand zřetězit podreťazca . Získať názov zložky z " Názov " vlastnosť podpriečinky . Typ :

link = " " & subfolder.Name & " < /a > "
8

Zvýšiť počet a nastavte bunku v riadku počte , ktorý zodpovedá počtu na odkaz reťazca . Typ :

count = počet + 1Cells ( počet , 1 ) = odkaz
9

Uzavrite slučku a ukončiť podprogram . Typ :

Ďalšie subfolderEnd Sub
10

Vyberte " Súbor " a zvoľte " Spustiť " a " Spustiť Sub /User formulár " spustiť " Uložiť " . skriptu VBA . Prepnite späť do zošita pre zobrazenie výsledkov .

• Predchádzajúca strana: Ako pridať VBScript Excel 
• Ďalšia strana: Ako presmerovať na iný server