Excel VBA, ADO og Pivottabeller med mere end 65536 rækker

Jeg har brug for at generere en pivottabel ud fra en csv-fil med måske 200.000 rækker. Det SKAL foregå i Excel 2000 (ikke Access eller lignende). Dataene må ikke først skulle indlæses til regneark.

Det er lykkedes mig at gøre det manuelt, dvs. uden brug af VBA, men jeg får en fejl, hvis jeg bruger makrooptageren.

Jeg har fundet frem til følgende kode, som jeg ikke ved præcist hvorfor giver en fejl:

Fejlen er:

Run-time error '1004'
Problemer under indlæsningen af data.

Og den opstår i linjen Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PC, _
            TableDestination:=Range("A1"))

Formateringen er desværre røget sig en tur her, men jeg har delt linjerne rigtigt i koden.

Jeg har prøvet med bare 6 linjers data, og dataene bliver skrevet rigtignok i ark1.

Er der én, der kan rette koden og forklare, hvorfor det går galt ?

Sub StatistikInd()

Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim PC As PivotCache
Dim PT As PivotTable
 
'Create the connection string
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Test\;" & _
            "Extended Properties=Text;"

'Create the SQL statement
szSQL = "SELECT * FROM Test2.csv WHERE Type='Vare';"

Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly
           
'Check to make sure we received data.
If Not rsData.EOF Then
    'Dump the returned data onto Sheet1
    'Create the PivotTable cache....
    Set PC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
    Set PC.Recordset = rsData

   
  Worksheets("Ark1").Range("A1").CopyFromRecordset rsData
   
   
Else
    MsgBox "No records returned.", vbCritical
End If

'Clean up our Recordset object.
rsData.Close
Set rsData = Nothing
'Create the PivotTable ....
    Worksheets.Add Before:=Sheets(1)
    Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PC, _
            TableDestination:=Range("A1"))

    With PT
        .NullString = "0"
        .SmallGrid = False
        .AddFields RowFields:="Bonnr", ColumnFields:="Date"
        .PivotFields("lbnr").Orientation = xlDataField
    End With
End Sub