1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Private SNC As LibClass.SimpleNetClass
Private WRAPPER As LibClass.ListWrapper
Private Sub UserForm_Initialize()
Call Test
End Sub
Private Sub Test()
Dim TheInts() As Long
Dim TheDoubles() As Double
Dim TheStrings() As String
Set WRAPPER = New ListWrapper
Dim counter As Integer
counter = 1
Worksheets(1).Cells(counter, 1).Value = "instance 1"
For Each item In WRAPPER.Unlist
Set SNC = item
TheInts = SNC.IntArr
TheDoubles = SNC.DoubleArr
TheStrings = SNC.StrArr
Dim sh As Worksheet
Set sh = Worksheets(1)
For J = LBound(TheInts) To UBound(TheInts)
sh.Cells(counter + 2, J + 1).Value = TheInts(J)
sh.Cells(counter + 3, J + 1).Value = TheDoubles(J)
sh.Cells(counter + 4, J + 1).Value = TheStrings(J)
Next
counter = 8
Worksheets(1).Cells(counter, 1).Value = "instance 2"
Next
End Sub |
Partager