|
liens Web reflète souvent la structure des répertoires du site . Par exemple, " http://example.com/images » fait référence à un dossier nommé "images" dans le dossier racine du site Web " example.com" . Pour créer automatiquement des liens hypertexte en balayant une structure de répertoire et en utilisant les noms des dossiers dans les hyperliens , VBA fournit l'objet du système de fichiers . FSO vous permet de lire les dossiers et fichiers et de récupérer des propriétés, telles que leur nom. Avec un script VBA dans une feuille de calcul Excel, vous pouvez créer un ensemble de liens hypertexte sur la base des noms de dossier dans une structure de répertoire . Instructions
1 lancement 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. Choisissez "Fichier" et "Enregistrer sous .. ", tapez un nom de fichier , sélectionnez « classeur Excel Macro -Enabled (*. Xlsm ) " comme type de fichier et cliquez sur "Enregistrer".
2 Sélectionnez " développeur" dans la barre de ruban principal , puis sélectionnez " Visual Basic " dans la barre de ruban de développeur.
3 créer un script VBA pour scanner 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:
Sous FolderLinks ()
4 déclarer une variable pour stocker l'objet du système de fichiers , une variable pour stocker le dossier de départ, une variable pour stocker chaque sous-dossier , un compteur de le nombre de dossiers que vous trouvez et une chaîne contenant le lien que vous créez. Type:
Dim fso Comme nouveaux dossiers FileSystemObjectDim Comme sous-dossier FolderDim Comme FolderDim comptent comme Integer = lien 0Dim As String
5 Obtenir le premier dossier pour lancer la numérisation . Type:
Set dossiers = fso.GetFolder ( "D: \\ users \\ steve \\ documents " )
6 créer une boucle , et recevez chaque sous-dossier dans le dossier . Type:
Pour chaque sous-dossier dans folders.Subfolders
7 Monter la chaîne de lien en utilisant une esperluette pour concaténer les chaînes. Obtenez le nom du dossier dans la propriété "Name" du sous-dossier . Type:
lien = " " & subfolder.Name & " "
8 incrémenter le compteur et définir la cellule dans le numéro de la ligne qui correspond au nombre de la chaîne de liaison. Type:
nombre de = count + 1Cells ( comptage , 1) = lien
9 boucler la boucle et mettre fin à la sous-routine . Type:
Suivant subfolderEnd Sous
10 Sélectionnez "Fichier" et "Enregistrer". Choisissez " Exécuter" et " Exécuter Sub /utilisateur formulaire " pour lancer l' VBA script. Revenez dans le classeur pour afficher les résultats .
|
