VBA: Hvad gør jeg når jeg har et udtræk på mere en 65536 linjer.

Noget i den her retning må kunne gøre det:

Arktæller = 0
ArkNavn="Saldo"
If Not rs.EOF Then
    If i >=65536 then
        Arktæller = Arktæller + 1
        ArkNavn = "Saldo" & Arktæller
    end if
    With Sheets(ArkNavn).[a1]
        For Each Felt In rs.Fields
        .Offset(0, i) = Felt.Name
        i = i + 1
        Next
        .Resize(1, rs.Fields.Count).Font.Bold = True
        .Offset(1, 0).CopyFromRecordset rs
        .Resize(1, rs.Fields.Count).EntireColumn.AutoFit
    End With
End If

Det virker desværre ikke... Den kan godt kører scriptet, men den indsætter ikke de resterende data i det næste ark.

Nåh, ja der var jo den lille "bøf", at "i" jo også skal nulstilles:

Arktæller = 0
ArkNavn="Saldo"
If Not rs.EOF Then
    If i >=65536 then
        Arktæller = Arktæller + 1
        ArkNavn = "Saldo" & Arktæller
        i = 0
    end if
    With Sheets(ArkNavn).[a1]
        For Each Felt In rs.Fields
        .Offset(0, i) = Felt.Name
        i = i + 1
        Next
        .Resize(1, rs.Fields.Count).Font.Bold = True
        .Offset(1, 0).CopyFromRecordset rs
        .Resize(1, rs.Fields.Count).EntireColumn.AutoFit
    End With
End If

Og de ark som den forsøger at sætte data ind i SKAL (hvis man bruger ovenstående) hedde:

Saldo, Saldo2, Saldo3 osv.

Det virker fortsat ikke, det skyldes jo at I er et udtryk for kolonne nummeret, det vi ønsker den skal styre er jo række nummeret...

OK. Det havde jeg lige misforstået. Jeg troede den var en del af en løkke der overførte data. Det kan jeg godt se nu, at det ikke er. Min ide her dur faktisk slet ikke, da der ikke er nogen direkte kontrol med rækkerne.

Prøver lige at se om jeg kan finde en anden mulighed. Vender måske tilbage ;0)

Den her er lidt beskåret, men prøv lige om den virker - Så kan vi altid tilpasse detaljerne bagefter.

Arktæller = 0
While Not Rs.EOF
    Worksheets.Add
    Arktæller = Arktæller + 1
    ActiveSheet.Name = "Saldo" & Arktæller
    ActiveSheet.Range("B1").CopyFromRecordset Rs, 65536
Wend

Det virker der mangler bare at få tilføjet overskrifterne samt autofit kolonner..

Sub test()


Dim rs As New ADODB.Recordset

rssql = "SELECT m_operation.prodnr, m_operation.rflg, m_operation.aktiv, m_operation.plgrp AS Planlægningsgruppeoperation, m_belastning.plgrp AS Register, m_belastning.tekst1 AS Navn " + _
        "FROM m_operation LEFT JOIN m_belastning ON m_operation.plgrp = m_belastning.plgrp "



rs.Open rssql, "File Name=N:\BJO\UDL\WebLimes.udl"
Sheets("Saldo").Cells.Delete

If Not rs.EOF Then
    With Sheets("Saldo").[a1]
        For Each Felt In rs.Fields
        .Offset(0, i) = Felt.Name
        i = i + 1
        Next
        .Resize(1, rs.Fields.Count).Font.Bold = True
        .Offset(1, 0).CopyFromRecordset rs
        .Resize(1, rs.Fields.Count).EntireColumn.AutoFit
    End With
End If

Arktæller = 0
While Not rs.EOF
    Worksheets.Add
    Arktæller = Arktæller + 1
    ActiveSheet.Name = "Saldo" & Arktæller
    ActiveSheet.Range("A1").CopyFromRecordset rs, 65536
Wend
rs.Close
Set rs = Nothing

End Sub

Således ser det ud.. På den første side er overskrifterne, så det er fint..

Hvis du smider et svar skal du få dine point..

OK :0)