Kansion alikansiot

Repe43

Tarttis saada Excelin hyperlinkkeinä, onnistuuko suoraan jotenkin vai lisäämällä kansio kerrallaan. Alikansioita on 100 ja lisää tulee koko ajan.

repe

7

737

Äänestä

    Vastaukset 7

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...

      ' lisää referenssi Microsoft Scripting Runtime
      Sub Alikansiot()
      Sheets("Hyperlinkit").Cells = ""
      HaeAlikansiot "H:\Excel\" ' muuta kansiopolku
      End Sub

      Sub HaeAlikansiot(Kansio As String)

      Dim FSO As Scripting.FileSystemObject
      Dim Lähde As Scripting.Folder
      Dim Alikansio As Scripting.Folder
      Dim rivi As Long

      Set FSO = New Scripting.FileSystemObject
      Set Lähde = FSO.GetFolder(Kansio)
      rivi = Range("A65536").End(xlUp).Row 1
      Cells(rivi, 1).Formula = Lähde.Path
      Cells(rivi, 1).Hyperlinks.Add Anchor:=Cells(rivi, 1), Address:=Lähde.Path
      For Each Alikansio In Lähde.SubFolders
      HaeAlikansiot Alikansio.Path
      Next Alikansio
      Set Alikansio = Nothing
      Columns("A").AutoFit
      Set Lähde = Nothing
      Set FSO = Nothing
      End Sub

      • Repe43

        Missä teen väärin? Herjaa noista riveistä

        Sub HaeAlikansiot(Kansio As String)

        Dim FSO As Scripting.FileSystemObject

      • kunde
        Repe43 kirjoitti:

        Missä teen väärin? Herjaa noista riveistä

        Sub HaeAlikansiot(Kansio As String)

        Dim FSO As Scripting.FileSystemObject

        kuten viestissä mainitaan

        ' lisää referenssi Microsoft Scripting Runtime
        Sub Alikansiot()
        Sheets("Hyperlinkit").Cells = ""
        HaeAlikansiot "H:\Excel\" ' muuta kansiopolku
        End Sub

        et ole lisännyt viittausta

      • Repe43
        kunde kirjoitti:

        kuten viestissä mainitaan

        ' lisää referenssi Microsoft Scripting Runtime
        Sub Alikansiot()
        Sheets("Hyperlinkit").Cells = ""
        HaeAlikansiot "H:\Excel\" ' muuta kansiopolku
        End Sub

        et ole lisännyt viittausta

        Vähän tyhmä kun en tajua mihin tuo viittaus tulee.

      • Repe43
        kunde kirjoitti:

        kuten viestissä mainitaan

        ' lisää referenssi Microsoft Scripting Runtime
        Sub Alikansiot()
        Sheets("Hyperlinkit").Cells = ""
        HaeAlikansiot "H:\Excel\" ' muuta kansiopolku
        End Sub

        et ole lisännyt viittausta

        Menihän se jakeluun pikkuhiljaa missä oli "vika".
        Seuraava kysymys, ensimmäinen alkansio A sarakkeeseen ja sen alikansio B sarakkeeseen jne. Onnistuuko ??

      • kunde
        Repe43 kirjoitti:

        Menihän se jakeluun pikkuhiljaa missä oli "vika".
        Seuraava kysymys, ensimmäinen alkansio A sarakkeeseen ja sen alikansio B sarakkeeseen jne. Onnistuuko ??

        lisää referenssi Microsoft Scripting Runtime
        Dim rivi As Long
        Sub Alikansiot()
        Sheets("Hyperlinkit").Cells = ""
        HaeAlikansiot "H:"
        JaaAlikansioihin
        Columns("A:IV").AutoFit
        End Sub

        Sub HaeAlikansiot(Kansio As String)

        Dim FSO As Scripting.FileSystemObject
        Dim Lähde As Scripting.Folder
        Dim Alikansio As Scripting.Folder

        Set FSO = New Scripting.FileSystemObject
        Set Lähde = FSO.GetFolder(Kansio)
        rivi = Range("A65536").End(xlUp).Row 1
        Cells(rivi, 1).Formula = Lähde.Path
        Cells(rivi, 1).Hyperlinks.Add Anchor:=Cells(rivi, 1), Address:=Lähde.Path
        For Each Alikansio In Lähde.SubFolders
        HaeAlikansiot Alikansio.Path
        Next Alikansio

        Set Alikansio = Nothing

        Set Lähde = Nothing
        Set FSO = Nothing
        End Sub

        Sub JaaAlikansioihin()
        Dim a As Variant
        Dim i As Long
        Dim j As Integer
        On Error GoTo virhe
        rivi = Range("A65536").End(xlUp).Row
        For i = 136 To rivi
        a = Split(Range("A" & i), "\")
        Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Range("A2") & "\" & a(2)
        For j = 1 To UBound(a)
        If j >= 3 Then
        Cells(i, j - -1).Hyperlinks.Add Anchor:=Cells(i, j - 1), Address:=Cells(i, j - 2) & "\" & a(j)
        End If


        Next
        Next
        virhe:
        End Sub

      • Repe43
        kunde kirjoitti:

        lisää referenssi Microsoft Scripting Runtime
        Dim rivi As Long
        Sub Alikansiot()
        Sheets("Hyperlinkit").Cells = ""
        HaeAlikansiot "H:"
        JaaAlikansioihin
        Columns("A:IV").AutoFit
        End Sub

        Sub HaeAlikansiot(Kansio As String)

        Dim FSO As Scripting.FileSystemObject
        Dim Lähde As Scripting.Folder
        Dim Alikansio As Scripting.Folder

        Set FSO = New Scripting.FileSystemObject
        Set Lähde = FSO.GetFolder(Kansio)
        rivi = Range("A65536").End(xlUp).Row 1
        Cells(rivi, 1).Formula = Lähde.Path
        Cells(rivi, 1).Hyperlinks.Add Anchor:=Cells(rivi, 1), Address:=Lähde.Path
        For Each Alikansio In Lähde.SubFolders
        HaeAlikansiot Alikansio.Path
        Next Alikansio

        Set Alikansio = Nothing

        Set Lähde = Nothing
        Set FSO = Nothing
        End Sub

        Sub JaaAlikansioihin()
        Dim a As Variant
        Dim i As Long
        Dim j As Integer
        On Error GoTo virhe
        rivi = Range("A65536").End(xlUp).Row
        For i = 136 To rivi
        a = Split(Range("A" & i), "\")
        Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Range("A2") & "\" & a(2)
        For j = 1 To UBound(a)
        If j >= 3 Then
        Cells(i, j - -1).Hyperlinks.Add Anchor:=Cells(i, j - 1), Address:=Cells(i, j - 2) & "\" & a(j)
        End If


        Next
        Next
        virhe:
        End Sub

        Syystä tekee saman kun tuo edellinen. Osasinkohan selittä mitä ajan takaa, eli juurikansio A ja sen alla olevat B ja niitten alla olevat C jne.

        A sarakkeessa näkyisi vain H:\Excel
        B sarakkeessa näkyisi Ali1, Ali2, Ali3 jne
        C sarakkeessa näkyisi Aliali1, Aliali2 jne jne

        repe

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      61
      925

    2. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      34
      857

    3. Lehtikankaan oppilas kuolema

      Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞
      Kajaani
      16
      856

    4. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      105
      813

    5. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      796

    6. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      38
      713

    7. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      72
      596

    8. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      42
      589

    9. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      66
      581

    10. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      40
      557

    11. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      29
      553

    12. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      27
      513

    13. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      112
      478

    14. Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas

      Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei
      Tv-sarjat
      2
      462

    15. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      88
      458

    16. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      60
      454

    17. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      42
      452

    18. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      45
      436

    19. Mikä estää ottamasta yhteyttä?

      🤨
      Ikävä
      39
      423

    20. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      417
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt