Cześć
Czy mogę prosić o pomoc w rozbudowie kodu widocznego poniżej?
Kod służy do tworzenia hiperłączy w excelu. Po uruchomieniu wybieramy folder, a w komórkach pojawiają się nazwy plików z linkami do nich. Chciałbym rozszerzyć funkcjonalność tego kodu, aby po wybraniu folderu linki tworzyły się również do plików znajdujących się w podfolderach (wszystkich niezależnie od głębokości)
Sam nie umiem tego zrobić bo nie znam się na programowaniu.
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFiledialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I+1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub```
Źródło kodu:
https://www.youtube.com/watch?v=E57j4UXDIFo