Comment puis-je utiliser VBA pour la liste de toutes les feuilles de calcul dans un classeur dans une chaîne de caractères?

Comment puis-je utiliser VBA pour obtenir les noms de toutes les feuilles de travail (ou, alternativement, d'un maximum de trois) dans le classeur actif pour être considéré comme une chaîne de caractères? Pour le contexte, je vais donc utiliser la chaîne de caractères en nommant le classeur lorsqu'il est enregistré. J'ai trouvé comment créer un nom de la sauvegarde pour le fichier en utilisant l'entrée des boîtes de dialogue et ainsi de suite, donc c'est seulement un cas de prise en VBA pour revenir à quelque chose comme "[Feuille de calcul 1 nom] et [Feuille de calcul 2]".

Merci beaucoup!

En parcourant toutes les feuilles de calcul et d'obtenir leurs noms de .Name propriété?

OriginalL'auteur seegoon | 2012-05-18

  1. 14
    Option Explicit

Sub namesheets()

Dim wks as Worksheet, strName as String

For each wks in Worksheets
     strName = strName & wks.Name
Next

End Sub

    Vous pouvez également google "Excel vba boucle à travers les feuilles de calcul dans un classeur" ou quelque chose à cet effet et de trouver la réponse très facilement.

    Aussi, cette question a été posée dans une certaine forme, sur ce site. Voir le lien... Boucle par le biais de sous-ensemble de feuilles de calcul

    Merci pour cette. J'ai un couple de suivi de questions - grâce à mes pauvres connaissances en VBA, je dois l'admettre. D'abord, comment pourrais-je utiliser cette chaîne? J'ai actuellement le code qui enregistre un fichier à l'aide de cordes: SaveFile = VendorCode & " - "& VendorName & " - " & ContentDate - que serais-je insérer dans n'utiliser cette chaîne? Enfin, y aurait-il un moyen d'insérer des virgules entre les noms de feuille de calcul? Merci beaucoup!
    Je voudrais vous demander de faire un peu de plongée en ce que vous avez. Vous êtes en train de construire une chaîne de caractères, et vous avez une chaîne construites à partir de variables et de texte (" - "). Continuer sur la base de ce que j'ai écrit et ce que vous avez déjà et vous serez en mesure de faire de votre chaîne (Indice = a = Scott b = Holtzman -> strName = a & "" & b strName = Scott Holtzman. S'il vous plaît n'oubliez pas de marquer votre réponse comme acceptée si vous sentez que vous avez ce que vous avez demandé.
    Je l'ai eu 🙂 Merci pour votre aide.

    OriginalL'auteur Scott Holtzman