remplir excel avec liste de structure
Bonjour,
je voudrais remplir un fichier excel avec cette méthode :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim DataArray(1 To 100, 1 To 3) As Variant
Dim r As Integer
For r = 1 To 100
DataArray(r, 1) = "ORD" & Format(r, "0000")
DataArray(r, 2) = Rnd() * 1000
DataArray(r, 3) = DataArray(r, 2) * 0.7
Next
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A2").Resize(100, 3).Value = DataArray |
J'utilise cette méthode car j'ai un grand nombre de données a mettre d'en l'excel. Mais j'ai un problème car dans l’exemple si dessous il utilise un tableau ( DataArray), alors que moi j'utilise un liste de structure.
Mon problème est comment je peut faire pour inséré dans la range défini ma liste de structure ?
Merci de votre aide
