Ich lese die Daten mit einem Recordset aus... ach ich post mal den code:
Set objConnect = New ADODB.Connection
Set objRecset = New ADODB.Recordset
objConnect.Open "Provider=msdaora;Data" & "Source=" & strDataSource & ";" & "User Id=" & strUsername & ";" & _
"Password=" & strPassword & ";"
objRecset.Open strSQL, objConnect, adOpenKeyset, adLockOptimistic
dblRowstart = 15
For i = 1 To objRecset.Fields.Count - 1
objExcel.Worksheets(1).Cells(dblRowstart, i) = objRecset.Field(i).Name
Next i
While Not objRecset.EOF
dblRowstart = dblRowstart + 1
For j = 1 To objRecset.Fields.Count - 1
objExcel.Worksheets(1).Cells(dblRowstart, j) = objRecset.Fields(j)
Next j
objRecset.MoveNext
Wend