tælle rækkeantal

Jeg kan ikke lige komme i tanke om en funktion, der finder antallet af rækker men hvad med

ThisWorkbook.Worksheets("ark1").Activate
For i = 2 To 100
If Not IsEmpty(Range("a" & i).Value) Then
    Kt = Range("a" & i).Value
    Md = Range("b" & i).Value
    Sl = Range("c" & i).Value
   
    cmd.CommandText = "INSERT INTO Tabel1(Kontonr, Måned, Saldo) Values('" & Kt & "','" & Md & "','" & Sl & "');"
   
    cmd.Execute
End If
Next

Du kan bare ændre 100 til dit maksimale antal rækker.

Jeg fandt lige denne her funktion, men PAS PÅ! den nulstiller undo-stakken. Det vil sige, at du, når du aktiverer funktionen, ikke længere kan fortryde.


ThisWorkbook.Worksheets("ark1").Activate
iRowCount = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iRowCount

Den vil ikke virke her men:
Når jeg kører koden trinvis stopper den ved  Sub TilføjTilTabel()
Med Runtime error '3704'
Aplication-defined or Object-defined error

Option Explicit
Private DBConnection As ADODB.Connection
'Husk "Microsoft ActiveX Data Objects 2.1 Library" Tools/References
Sub TilføjTilTabel()
On Error GoTo ErrHandler

Set DBConnection = New ADODB.Connection
DBConnection.Provider = "Microsoft.Jet.OLEDB.4.0;"
DBConnection.Mode = adModeReadWrite
DBConnection.Open "Data Source =C:\Dokumenter\Access\Neo\Neo2.mdb"
Dim cmd As New ADODB.Command
DBConnection.BeginTrans
cmd.ActiveConnection = DBConnection
cmd.CommandType = adCmdText

Grunden til den stopper, er sandsynligvis at compileren finder en fejl i Sub TilføjTilTabel. Den stopper derfor og markerer Sub TilføjTilTabel mede gult, men laver også en markering (hvid med mørk baggrund) i selve kode, der hvor fejlen opstår.

Jeg førsøger med noget andet.

Jeg tror fejlen opstår i

ErrHandler:
DBConnection.RollbackTrans

Der opstår en fejl et eller andet sted i det du har skrevet ovenfor, og derfor går programmet til ErrHandler, men på grund af fejlen kan DBConnection.RollbackTrans ikke udføres.

Prøv f.eks. at flytte sætningen "On Error GoTo ErrHandler" ned umiddelbart efter det du skrev ovenfor.

Umiddelbart så er den mest sandsynlige fejl at der er en fejl i linien

DBConnection.Open "Data Source =C:\Dokumenter\Access\Neo\Neo2.mdb"

Ved at lave en fejl her, kunne jeg fremprovokere samme fejlnummer som du.

Hvis det hjælper noget, ved hvordan man gør manuelt.
Rediger/Gå til/Speciel/Sidste celle.

Det viste sig at være Relationerne i databasen , der forhindrede overførsel af data . Jeg arbejder viddere med rækkeantallet.

det er måske nemmere at få access til at importere.
Tak for besværet :)