kopier og insert i excel via VBA

.

Jeg plejer at bruge denne:

Dim Obvar As Object, wkb As Object, Rst As Recordset
Dim i As Integer
On Error GoTo Errorhandler
DoCmd.SetWarnings False
DoCmd.OpenQuery "Forespørgsel1"
Me.Refresh
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Temp", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Obvar.Visible = True
Set wkb = Obvar.Workbooks.Add
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![Startdato])
Rst.MoveNext
Next
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
Set Obvar = Nothing
DoCmd.OpenQuery "slettemp"
DoCmd.SetWarnings True
Errorhandler:
MsgBox Error$

Har lige overført 29.000 poster uden problemer.
Men > hnto, hvad var løsningen?

NIH har ligeldes svaret på et andet spørgsmål efter accept til Thomas jepsen.

se http://exp.dk/spm/333089