mehrdimensionales Array
04.12.2012 15:40:17
SK
folgendes Problem. Ich lese per VBA ein Excel File aus. Habe dazu ein Array angelegt:
Type TimeStruc
strTyp As String
strTag As Date
strKenner As String
datestart As Date
dateende As Date
ih0 As Integer
ih1 As Integer
ih2 As Integer
ih3 As Integer
...
End Type
Public globalXLStime() As TimeStruc
Danach wird das Array befüllt. Soweit ok.
Jetzt werden die Daten in eine DB geschrieben.
Momentan steht da sowas:
If (globalXLStime(i).ih0 = 999) Then
rs2!h0 = Null
Else
rs2!h0 = globalXLStime(i).ih0
End If
Und das mehrfach für h0 bis hx (Ja das DB Design muss so sein, möchte ich jetzt nicht diskutieren).
Mir geht es jetzt darum, wie kann ich h0 bis hx dynamisch auslesen:
Dachte dabei an sowas:
For k = 0 To x
If (globalXLStime(i).ih & k = 999) Then
rs2("h" & k) = Null
Else
rs2("h" & k) = globalXLStime(i).ih & k
End If
Next
So geht das natürlich nicht für den Teil ih & k hab ich keine Idee. Ich hatte ursprünglich gedacht globalXLStime(i, k+6) aber das geht auch nicht :(
Gruß,
SK