Kansion alikansiot

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.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

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

Lue lisää

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

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

Lue lisää

Menihä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

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

Lue lisää

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