Scorrimento righe Excel

[Marco Porzio]

ciao,
con il codice seguente vado a leggere le righe di un foglio Excel poi carico i dati delle singole righe in una tabella del server.
il codice funziona nel caricamento dati su server e scorrimento righe solo che si ferma alla penultima riga popolata anziché all'ultima!
come correggo questo errore?
grazie
Marco

Dim lRow As Long

lRow = Cells(Rows.Count, 1).End(xlUp).Row

NoOfFields = 13
StartRow = 7
EndRow = lRow

Set conn = New ADODB.Connection
cs = "DRIVER=SQL SERVER;"
cs = cs & "DATABASE=Dati;"
cs = cs & "SERVER=MioServer\SQLEXPRESS"

conn.Open cs, "User", "Password"

Dim rsData As New ADODB.Recordset
Set rsData = New ADODB.Recordset


strSQL = "Select * From MiaTabella;"
rsData.Open strSQL, conn, adOpenDynamic, adLockOptimistic

R = 7

Do While Len(Range("D" & R).Formula) > 0

With rsData
.AddNew
.Fields("DataOraInserimento") = Range("G4").Value
.Fields("Anno") = Range("E4").Value
.Fields("Mese") = Range("F4").Value
ecc....
End With

R = R + 1

Loop

rsData.Close
Set rsData = Nothing
conn.Close
Set conn = Nothing

[issdr]

Marco Porzio wrote:

> il codice funziona nel caricamento dati su server e scorrimento righe
> solo che si ferma alla penultima riga popolata anziché all'ultima!
> come correggo questo errore?

codice "pasticciato". alla fine del blocco with hai un .Update?

l'iterazione passa tutte le righe volute fwics