Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man skapar hyperlänkar baserat på mappnamn med VBA

    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 .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur hittar man SQRT av ett nummer i VB
    ·Lägga till en fastighet till ett Word- dokument i VBA
    ·Hur man förbereder en Data Rapport i VB 6
    ·VBA -kod Struktur
    ·Hur man använder , från XSD
    ·Hur får man ett värde på HKEY_CLASSES_ROOT i Visual …
    ·Hur hittar färgerna i en digital bild med hjälp av VB…
    ·Hur man använder pekare i Vb
    ·Historien om Visual Basic 6.0
    ·Hur hittar man den mellersta Antal tre nummer i VBA
    Utvalda artiklarna
    ·Hur man skapar en array i Ruby
    ·Hur du ändrar ett PHP till en JS
    ·Hur får man en Splash Screen till jobbet på VB.Net
    ·Inaktivera PAM autentisering
    ·Hur räkna hur många poster har uppdaterats för PHP
    ·Hur bindande Object Properties till ett FormView
    ·Hur ansluta Visual Basic till SQL
    ·Skillnaden mellan DataGrid & GridView
    ·De delar av Microsoft Visual C + +
    ·MATLAB Input Parsing
    Copyright © Dator Kunskap http://www.dator.xyz