Tarttis saada Excelin hyperlinkkeinä, onnistuuko suoraan jotenkin vai lisäämällä kansio kerrallaan. Alikansioita on 100 ja lisää tulee koko ajan.
repe
Kansion alikansiot
Repe43
7
718
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
Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.
Tämä asia ihmetyttää suuresti.1704054Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,953379SDP ylivoimainen ykkönen
En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.992740Polttomoottoriauto on köyhän merkki
Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.2892609Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!
”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a392326Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv1572081Ulkoistin makuaistini Yleisradiolle
Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,01880Sanna on pakottaja, domina
Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k61684- 441097
- 951048