Tarttis saada Excelin hyperlinkkeinä, onnistuuko suoraan jotenkin vai lisäämällä kansio kerrallaan. Alikansioita on 100 ja lisää tulee koko ajan.
repe
Kansion alikansiot
7
683
Vastaukset
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 Repe43 kirjoitti:
Missä teen väärin? Herjaa noista riveistä
Sub HaeAlikansiot(Kansio As String)
Dim FSO As Scripting.FileSystemObjectkuten 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 viittaustaVä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 viittaustaMenihän se jakeluun pikkuhiljaa missä oli "vika".
Seuraava kysymys, ensimmäinen alkansio A sarakkeeseen ja sen alikansio B sarakkeeseen jne. Onnistuuko ?? 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 SubSyystä 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ä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww655004- 533340
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1452512Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1052046Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.831689Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381247Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-211189Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1931165En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois881150- 1731116