Access, Excell og arrays
Jeg har forstået det sådan at hvis man laver et excell-regneark fra access, så har man i Access alle de muligheder der også findes i Excell - i såfald burde nedenstående kode virke, men funktionen objXL.Application.WorkSheetFunction.Transpose(IndividResults) - der her skulle vende et to-dimensinelt array om virker ikke...nogen forklaringer på det?(Jeg får fejlen: "Type Mismatch"Og hvis det ikke kan lade sig gøre - hvordan vender jeg så mit array om smartest?
Dim objXL As Object
Dim strWhat As String, boolXL As Boolean
Dim objActiveWkb As Object
If fIsAppRunning("Excel") Then
Set objXL = GetObject(, "Excel.Application")
boolXL = False
Else
Set objXL = CreateObject("Excel.Application")
boolXL = True
End If
objXL.Application.workbooks.Add
Set objActiveWkb = objXL.Application.ActiveWorkBook
objActiveWkb.Worksheets(1).Range("A1:AY10000") = objXL.Application.WorkSheetFunction.Transpose(IndividResults)
objActiveWkb.Close savechanges:=True
If boolXL Then objXL.Application.Quit
Set objActiveWkb = Nothing: Set objXL = Nothing
\Mikkelk
