Jeg kan ikke finde en levende vba gruppe, så jeg håber at én her kan
kommentere, hvorfor jeg ikke kan passere arrays (som paramarray) mellem
procedurer. Det har jeg da ellers gjort en del gange før ...?
Carsten
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private dbArray()
Sub SkrivFilTest()
ReDim dbArray( 29 ) As Variant
Dim i As Integer
For i = 0 To 29
Randomize
dbArray( i ) = Rnd * 10000
'MsgBox dbArray(i) ... arrayet bliver fyldt op!
Next i
SkrivFil "Karlo", "D:\Sharp\Proj10", dbArray()
End Sub
..................
Sub SkrivFil( FilForNavn As String , Adresse As String , ParamArray
PArray() As Variant )
Dim dbl As Double
Dim num, ant As Integer
num = FreeFile
ant = UBound( PArray )
........................... ant viser =
0 .... ? Jeg har prøvet alle måder at passere et array mellem
SkrivFilTest og SkrivFil, men det vil ikke! Kan det passe? UBound( PArray,
1 ) er det samme ......................
..
..
..
end sub
|