Importare da Excel ad Access 2003 VBA determinare ultima cella riga di...

domenica 02 febbraio 2014 - 01.39

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags Access (.mdb)

leoobelix Profilo | Newbie

44 messaggi | Data Invio: dom 2 feb 2014 - 01:39

Problema importazione file excel su access 2003

nello specifico condizione Loop per trovare ultima cella non vuota di excel

riporto il codice :

Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim OpenBook
Dim Percorso
Dim I As Long
Dim Fine As Long

'trovo il file excel che voglio importare
Percorso = Excel.Application.GetOpenFilename("File XLS(*.xls),*.xls", , "scegli il file")

'Apri il file di Excel
Set OpenBook = Workbooks.Open(Filename:=Percorso)
' ws(1).Cells("B1").Select
'Fine = ws(1).Selection.End(xlDown).Row

'Apro Tabella di access
Set DBCorrente = CurrentDb
Set Tabella = DBCorrente.OpenRecordset("codritornoagenzia")
I = 1
'loop sui record

Do Until Worksheets(1).Cells(1, I).Value = ""
I = I + 1
'aggiorna un contatore

Tabella.AddNew
Tabella.Fields("idagency") = Worksheets(1).Cells(I, 1)
Tabella.Fields("idordine") = Worksheets(1).Cells(I, 10)
Tabella.Fields("codiceagenzia") = Worksheets(1).Cells(I, 2)
Tabella.Update
Loop

'Chiude file excels
OpenBook.Close

Prima il modulo era statico , non aveva la funzione dinamica di trovare ultimo valore .
ho provato con un loop indicando di verificare ultima cella con valore ="" , funziona in parte
nel senso che se ci sono 20 righe lui mi importa 19 et.c.... sempre 1 di meno .

dove sbaglio ?

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !