Comment puis-je créer et passer de tableau de chaîne à un sous Excel VBA?

VBA tableaux sont nouveaux pour moi et il semble que il ya plusieurs façons de créer des tableaux de chaîne.

Je savoir combien de points il faut être dans le tableau par le comte de la zone Utilisateur (donc peut-être que je n'ai pas besoin d'un tableau dynamique??). J'ai de la difficulté du passage du tableau par le biais d'une autre sous-Routine.

Le processus de la pensée est comme suit:

  1. Itérer sur une liste de noms d'utilisateur
  2. Créer une fiche pour chaque
  3. Enregistrer chaque nom d'utilisateur dans un tableau comme je l'ai itérer
  4. Dans une autre sous-Routine, sélectionner toutes les feuilles que j'ai créé et enregistrer en tant que PDF

Ci-dessous mon code. J'obtiens l'erreur d'Exécution 9 - Indice en dehors de la gamme (en se Référant à l'objet array)

J'apprécie toute l'aide! Merci!!!!

Sub CreateAllDashboards(StartDate As Date, EndDate As Date)
'Used to iterate through the list of users and call the Sub to create Dashboards

Dim UserNameRangeStart As Range
Set UserNameRangeStart = Range("UserName")
Dim SheetNames() As String

'Cyle through users
For i = 1 To GetUserNameRange().CounT
    'Some code
    ReDim Preserve SheetNames(i)
    SheetNames(i) = UserNameRangeStart.Offset(i, 0).Value
Next i

Call CreatePDF(EndDate, SheetNames) 'Also tried SheetNames()

End Sub
Sub CreatePDF(FileDate As Date, ByRef SheetNames As Variant)

Dim FilePath As String, FileName As String

FilePath = Application.ActiveWorkbook.Path
FileName = "Production Dashboards - " & Format(FileDate, "mmddyy") & ".pdf"


ThisWorkbook.Sheets(SheetNames).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

OriginalL'auteur Barrett Kuethen | 2014-12-31

  1. 2

    Le paramètre de tableau n'est pas un problème, il est transmis correctement à la méthode CreatePDF(...). Le type de paramètre peut être modifié à SheetNames() As String mais SheetNames As Variant fonctionne aussi bien.

    Puis le Run-time error 9 - Subscript out of range est soulevée ici ThisWorkbook.Sheets(SheetNames).Select, parce que le tableau SheetNames contient invalide nom de la feuille, qui est le premier élément. Cet élément est une chaîne vide chaîne vide n'est pas valide en tant que nom de la feuille.

    Comment puis-je créer et passer de tableau de chaîne à un sous Excel VBA?

    Dans le For Next indice de boucle commence avec la valeur 1 mais le tableau commence avec 0. Ainsi, le premier élément du tableau SheetNames reste intacte et est enfin une chaîne vide. Pour le résoudre définir la limite inférieure dans ReDim explicitement à 1. HTH

    (Note: si vous omettez de limite inférieure puis Option Base est utilisé et si aucun Option Base est spécifiée, alors 0 est utilisé.)

    'Cyle through users
For i = 1 To GetUserNameRange().Count
    'Some code
    ReDim Preserve SheetNames(1 To i)
    SheetNames(i) = UserNameRangeStart.Offset(i, 0).value
Next i
    Merci @dee. C'est ce dont j'avais besoin!
    Kuethen je suis contente qu'il a aidé!

    OriginalL'auteur dee

  2. 0

    Je voudrais changer cela:

    Sub CreatePDF(FileDate As Date, ByRef SheetNames As Variant)

    :

    Sub CreatePDF(FileDate As Date, SheetNames() As String)

    Mais que votre problème vient de cette ligne:

    ThisWorkbook.Sheets(SheetNames).Select

    Édité à partir de dee commentaire:
    Vous pouvez mettre un tableau de noms de feuille de calcul dans .Sheets() mais sans des lignes vides. Donc, dans votre sous "CreateAllDashboards" faites ceci:

    ReDim Preserve SheetNames(i - 1)
SheetNames(i - 1) = UserNameRangeStart.Offset(i, 0).Value

    et vous avez pu lire que sur les tableaux en VBA.

    Sheets(Array("Feuil4", "Feuille5")) je valide, regardez par exemple ici: msdn.microsoft.com/en-us/library/office/...
    Nous apprenons tous les jours, merci @dee 🙂
    Exactement, c'est mon cas 🙂

    OriginalL'auteur simpLE MAn

  3. -1

    J'ai testé la suivante à l'aide d'une seule feuille du classeur avec une gamme nommée Utilisateurs et un autre nommé FileDate. Il fait ce que vous avez demandé.

    La raison de la Run-time error 9 - Subscript out of range erreur, c'est que vous avez pour faire référence à l'élément de tableau. ThisWorkbook.Sheets(SheetNames).Select lèvera une erreur, mais ThisWorkbook.Sheets(SheetNames(x)).Select ne va pas (tant que x est initialisé et à l'intérieur des limites du tableau)

    Sub PopulateArray()
Dim user As Range
Dim SheetNames As Variant

    ReDim SheetNames(1 To 1) 'Initialise the array
    For Each user In [Users]
        ThisWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
        With Worksheets(Worksheets.Count)
            .Name = user.Value2
            .[A1] = user.Value2 'you can't print a blank sheet!
        End With
        SheetNames(UBound(SheetNames)) = user.Value2
        ReDim Preserve SheetNames(1 To UBound(SheetNames) + 1)
    Next user
    ReDim Preserve SheetNames(1 To UBound(SheetNames) - 1) 'Delete the last element
    Call CreatePDF([FileDate], SheetNames)
End Sub

Sub CreatePDF(FileDate As Date, ByRef SheetNames As Variant)

Dim FilePath As String, FileName As String
Dim x As Long

    FilePath = Application.ActiveWorkbook.Path & "\" 'Note backslash added to path.
    FileName = "Amtec Production Dashboards - " & Format(FileDate, "mmddyy")

    For x = 1 To UBound(SheetNames)
        ThisWorkbook.Sheets(SheetNames(x)).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            FileName & SheetNames(x) & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
             IgnorePrintAreas:=False, OpenAfterPublish:=True
    Next x
End Sub

    Ci-dessus montre comment analyser un tableau à un autre sous comme demandé, mais vous pourriez intégrer la CreatePDF code dans l'appel sous assez facilement aussi.

    J'ai commencé ma réponse de la même façon mais @dee m'a indiqué ceci pour montrer que vous pouvez, de façon surprenante, je dois dire, faire référence à un tableau à l'intérieur de .Sheets(). Le Run-time error 9 est jeté par la ligne vide dans SheetNames tableau.

    OriginalL'auteur Mark Fitzgerald