Comment créer des liens hypertexte sur la base de noms de dossiers à l'aide de vba

Lancez Excel pour afficher un classeur vide. Enregistrez le classeur en tant que classeur macros de sorte que vous pouvez stocker et exécuter des scripts VBA en elle. Choisir "Fichier" et "Enregistrer Sous ..," tapez un nom de fichier, sélectionnez "Excel Macro-Enabled (* .xlsm)" comme type de fichier et cliquez sur "Enregistrer."

Sélectionner "Promoteur" dans la barre de ruban principale, puis sélectionnez "Visual Basic" dans la barre de ruban de développeur.

Créez un script VBA pour balayer tous les dossiers dans un répertoire, incorporer le nom du dossier dans un lien et insérer le lien dans le classeur Excel. Commencez par créer la sous-routine. Type:

FolderLinks sub ()

Déclarez une variable pour stocker l'objet du système de fichiers, une variable pour stocker le dossier de démarrage, une variable pour stocker chaque sous-dossier, un compteur du nombre de dossiers à trouver et une chaîne contenant le lien que vous créez. Type:

Dim fso As New FileSystemObject
Dim dossiers que le dossier
Comme sous-dossier Dim Folder
Dim compte que Integer = 0
Lien Dim As String

Obtenez le premier dossier à lancer la numérisation. Type:

Paramétrage des dossiers = fso.GetFolder ("D: users steve documents")

Créer une boucle, et obtenir chaque sous-dossier dans le dossier. Type:

Pour Chaque sous-dossier Dans folders.Subfolders

Assembler la chaîne de lien en utilisant une esperluette pour concaténer les chaînes. Obtenez le nom du dossier de la "Nom" la propriété du sous-dossier. Type:

link = "https://example.com/collection/quot- subfolder.Name "Index.html">" & subfolder.Name & ""

Incrémenter le compteur et régler la cellule dans le numéro de la ligne qui correspond au compte à la chaîne de lien. Type:

count = count + 1
Cellules (comptent, 1) = lien