Grazie a tutti gli amici della Community

Penso che il problema sia hgià stato affrontato da altri, ma mi ripropongo avendo un immediato problema da risolvere.
In breve
Devo effettuare il caricamento di dati da file excel a mdb access.
Il file excel contiene n fogli contrassegnati da nome del tipo

fornitore bianchi, fornitore Rossi, Fornitore Neri, ecc
La struttura di ogni singola riga di ogni foglio è fatto dai seguenti campi
N.riga codice descrizione u.m. qta prezzo valore

i campi in Rosso sono bloccati, mentre il camo in Blu è l'unico campo libero a disposizione dell'utente per aggiornare l'ordine.
Inserendo la quantità viene ricalvolato, sulla singola riga il valore in base al prezzo.


quindi riassumendo
Le righe di ogni singolo foglio sono bloccati dando infatti all'utente che deve aggiornare il file excel la possibilità di inserire solo il campo quantitò, mentre i rimanenti campi sono bloccati

a fine compilazione dei singoli fogli del file excel, ho la necessità di importare in access le righe di tutti i fogli excel conteneti un valore > 0 sul campo quantità.

Vi chiederei una mano per poter risolvere il problema.
resto a disposizione per ogni eventuale chiarimento si ritenesse opportuno.

ciao

Moreno


Misonsan@libero.it

salve
hai tre possibilità:
1) elaborare il file excel filtrando i dati che non vuoi importare
una volta filtrati i dati del foglio in ambiente Access devi solo Importare i dati da Menù File>Importa dati scegliendo il tuo file Excel

2) importare in access con la stessa procedura tutto il contenuto del file excel salvo poi eseguire una query di annullamento per eliminare i records con il campo Valore =0

3) importare sempre tutto il contenuto del file excel su una tabella provvisoria e con una query di selezione accodare i dati alla tabella principale.

in base alle tue conoscenze di access scegli la strada che ti è più congeniale.
saluti
Andrea

---

salve
la soluzione che ti posso suggerire senza ricorrere a macro per preparare i dati da riversare in ambiente Access è quella di usare un Filtro Avanzato che ti crea una nuova tabella in un area vuota del foglio.
Il metodo per applicare il filtro avanzato puoi trovarlo in questa discussione:
http://forum.aiutamici.com/Default.aspx?g=posts&t=48657
devi solo cambiare la formula del criterio di selezione inserito nella cella I2 dell'immagine come segue:
=G2<>0

una volta estratti idati che sono rappresentati dalla'area in giallo,
assegna una nome es: "Filtro" a tutta l'area in giallo

salva e chiudi Excel
apri Access Menù File >Carica Dati esterni
e segui tutti i passi richiesti, facendo attenzione che nella finestra "Importazione guidata foglio di calcolo" dovrai selezionare il foglio e spuntare "Mostra Intervalli definiti" e scegliere il nome assegnato all'area filtrata "Filtro" nella finestra dove viene chiesto dove riversare i dati scegli "Tabella esistente"

E' più difficle da spiegare che a farsi.

Se poi mastichi un po' di Vba utilizzando il modello ADO potreti affidare tutto ad una macro esempi eccellenti nel sito Erlandsen Data Consulting.

saluti
Andrea

---

salve
nel post preeceente ti avevo segnalato un sito dove poter trovare delle routine già pronte per lo scopo.
devi solo cambiare i parametri relativi ai file e al percorso di essi.
questo è l'indirizzo:
http://www.erlandsendata.no/english/index.php?d=envbadacexportado
quello che a te interessa è questo:
"Below is an extended example that shows how you can export data from multiple workbooks:"
saluti
Andrea

---

salve
perchè stai percorrendo la strada più complicata??
eppure il link che ti avevo postato aveva giù un codice bello e confezionato che necessitava solo di aggiustare i riferimenti.

L'istruzione "TransferSpreadsheet" trasferisce completamente il foglio di lavoro e come titoli di campo assegna F1.F2 ecc se come fai tu assegni una tabella esistente che contiene nomi di campo definiti, la routine trova discordanza nei nomi e restituisce un errore. Per vedere esattamente cosa fa la routine che hai postato, prova a modificare questa riga:

DoCmd.TransferSpreadsheet acImport, 8, "WrkordiniExcel", "c:\Ordini_Prova.xls", False
sostituendo alla voce segnata in rosso "TabellaProva" e vedi come importa i dati.

Da notare che l'istruzione che usi non filtra La colonna Valori per risultati > di zero.

Questo che segue invece è il codice adattato alle tue esigenze da eseguire dal file excel e che deve essere ulteiormente modificato nei riferimenti segnati in rosso.


Sub ADOFromExcelToAccess()
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:\Db1.mdb;"
Set rs = New ADODB.Recordset
rs.Open "Tabella1", cn, adOpenKeyset, adLockOptimistic, adCmdTable
For x = 1 To Sheets.Count
r = 2 ' se i dati nei foglio iniziano da riga 2
Do While Range("A" & r).Value <> ""
If Range("E" & r).Value <> 0 Then
With rs
.AddNew
.Fields("Nriga") = Range("A" & r).Value
.Fields("Codice") = Range("B" & r).Value
.Fields("Descrizione") = Range("C" & r).Value
.Fields("UM") = Range("D" & r).Value
.Fields("qta") = Range("E" & r).Value
.Fields("Prezzo") = Range("F" & r).Value
.Fields("Valore") = Range("G" & r).Value
.Update
End With
End If
r = r + 1
Loop
Next x
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

prova a fa sapere.
saluti
Andrea

---

salve
la macro che sopra indicata da inserire in un modulo standard nell'editor di Visual Basic, va inserita come segue:

Dal foglio excel del tuo file, ALT+F11 ti fa accedere all'editor di Vba, una volta aperta la finestra dell'editor, Menù Inserisci> Modulo. Nella pagina bianca che si apre nella finestra di destra incolla tutto il codice.
Per funzionare, devi attivare il riferimento all'oggetto Activex Menu Strumenti>Riferimenti, cerca la voce "Microsoft ActiveX Data Objects 2.0 Library" mettigli il segno di spunta e conferma con Ok
Con ALT+F11 torni al foglio. Ora puoi richiamare la macro in due modi:
1) Menù Strumenti>Macro seleziona la macro appena incollata e clicca su Esegui
2) inserire un pulsante sul foglio ed associargli la le detta macro.



Traduzione del codice:


Sub ADOFromExcelToAccess()
'dichiarazioni delle variabili
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long

'Connessione al Database di access
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:\Db1.mdb;"

'apre il recordset Tabella1 per ricevere i dati
Set rs = New ADODB.Recordset
rs.Open "Tabella1", cn, adOpenKeyset, adLockOptimistic, adCmdTable

'conta i fogli
For x = 1 To Sheets.Count
'comincia a leggere i dati da riga 2
r = 2
'fino a quando non trova una cella vuota in colonna A
Do While Range("A" & r).Value <> ""
'con la condizione che il campo Valore sia diverso da zero
If Range("E" & r).Value <> 0 Then
'aggiunge i records alla tabella
With rs
.AddNew
'ATTENZIONE QUI AVEVO OMESSO IL RICHIAMO DEL FOGLIO


.Fields("Nriga") = Sheets("Foglio" & x).Range("A" & r).Value
.Fields("Codice") = Sheets("Foglio" & x).Range("B" & r).Value
.Fields("Descrizione") = Sheets("Foglio" & x).Range("C" & r).Value
.Fields("UM") = Sheets("Foglio" & x).Range("D" & r).Value
.Fields("qta") = Sheets("Foglio" & x).Range("E" & r).Value
.Fields("Prezzo") = Sheets("Foglio" & x).Range("F" & r).Value
.Fields("Valore") = Sheets("Foglio" & x).Range("G" & r).Value
.Update
End With
End If
'passa a leggere la riga successiva
r = r + 1
Loop
Next x
'chiude tutte le istanze
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub



SOLUZIONE CON MACRO IN AMBIENTE ACCESS:

questi sono i passi da eseguire:
Creazione della Tabella con intestazioni di campo identici al foglio Excel
Creazione di una maschera con un pulsante per richiamare la macro. Una volta creato il pulsante, click dx su di esso e scsegliere proprietà, nella scheda "Evento", alla voce "Click" troverai a fianco il simbolo di 3 puntini, clicca su di esso, selezionano la voce "Generatore di codice" e ti si aprirà l'editor di Visual Basic con le sguenti voci:
Private Sub Comando0_Click()
End Sub

copia tutto questo codice in mezzo a Private Sub.. e End Sub

Dim DBCOrrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim I As Long
'Apre il file Excel
Workbooks.Open Filename:="c:\Prova.xls"

'Apre la tabella
Set DBCOrrente = CurrentDb
Set Tabella = DBCOrrente.OpenRecordset("Tabella1")

'conto il numero dei fogli del workbook
For x = 1 To Sheets.Count
r = 2 ' per ogni foglio inizio da riga 2
Do While Range("A" & r).Value <> ""
'escludo tutti quelli che hanno il campo "Valore" =0
If Range("E" & r).Value <> 0 Then
'Aggiorno la Tabella
With Tabella

.AddNew
.Fields("Nriga") = Worksheets("Foglio" & x).Range("A" & r)
.Fields("Codice") = Worksheets("Foglio" & x).Range("B" & r)
.Fields("Descrizione") = Worksheets("Foglio" & x).Range("C" & r)
.Fields("UM") = Worksheets("Foglio" & x).Range("D" & r)
.Fields("Qta") = Worksheets("Foglio" & x).Range("E" & r)
.Fields("Prezzo") = Worksheets("Foglio" & x).Range("F" & r)
.Fields("Valore") = Worksheets("Foglio" & x).Range("G" & r)
.Update
End With

End If
r = r + 1 ' passo alla lettura della riga successiva
Loop
Next x
Tabella.Close
DBCOrrente.Close
Workbooks("Prova.xls").Close


Anche questa macro (che come vedi è simile all'altra) per funzionare necessita che vengano attivate le librerie di riferimento.
Menù Strumenti>Riferimenti
cerca e spunta le seguenti voci: confermando con Ok
Microsoft DAO 3.6 Object Library
Microsoft Excel 11.0 Object Library
ALT+F11 ti ricondurrà alla finestra di access
non ti rimane altro che richiamare la Maschera e cliccare sul pulsante.
Spero di non aver fatto troppo casino.

per quanto riguarda ASP non ti so aiutare.
saluti
Andrea

---

Ciao Andrea

Ho appena finito di inserire il codice per access.
le librerie inserite sono

Microsoft DAO 3.6 Object Library
Microsoft Excel 11.0 Object Library

Sub FunzioneAndrea()

Dim DBCOrrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim I As Long
'Apre il file Excel
Workbooks.Open Filename:="c:\Ordini_Prova.xls"

'Apre la tabella
Set DBCOrrente = CurrentDb
Set Tabella = DBCOrrente.OpenRecordset("Tabella1")

'conto il numero dei fogli del workbook
For x = 1 To Sheets.Count
r = 2 ' per ogni foglio inizio da riga 2
Do While Range("A" & r).Value <> ""
'escludo tutti quelli che hanno il campo "Valore" =0
If Range("E" & r).Value <> 0 Then
'Aggiorno la Tabella
With Tabella

.AddNew
.Fields("Nriga") = Worksheets("Foglio" & x).Range("A" & r)
.Fields("Codice") = Worksheets("Foglio" & x).Range("B" & r)
.Fields("Descrizione") = Worksheets("Foglio" & x).Range("C" & r)
.Fields("UM") = Worksheets("Foglio" & x).Range("D" & r)
.Fields("Qta") = Worksheets("Foglio" & x).Range("E" & r)
.Fields("Prezzo") = Worksheets("Foglio" & x).Range("F" & r)
.Fields("Valore") = Worksheets("Foglio" & x).Range("G" & r)
.Update
End With

End If
r = r + 1 ' passo alla lettura della riga successiva
Loop
Next x
Tabella.Close
DBCOrrente.Close
Workbooks("Ordini_Prova.xls").Close


End Sub


l'errore è

sub o function non definita.

grazie per la pazienza

ciao

Moreno

salve l'errore ci dice che non è referenziata la libreria.
Sicuro di aver spuntato le due librerie e aver confermato con OK?
Controlla di nuovo dalla finestra dell'editor di Visual Basic Menù Strumenti> Riferimenti se le due librerie sono referenziate in modo particolare, per l'errore indicato, Microsoft Excel 11.0 Object Library
dovretsi avere una situazione di quiesto tipo

NB. la modifica fatta per la macro nel file excel che istanzia i nomi dei fogli va fatta anche qui.

Ps. che versione hai di Office??
saluti
Andrea

---

salve
non mi dici quale delle due soluzioni hai adottato, pertanto ti rimando entrambe le routine.
Non funzionava bene perchè una parte del codice era rimasta solo nella mia testa. seguono i due codici modificati con l'aggiunta del nome del foglio per il quale dovrai aggiungere nella tabella di Access un campo con il nome "Fornitore"

1) In ambiente Excel: (in rosso le modifiche apportate)

Sub ADOFromExcelToAccess()
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:\Db1.mdb;"
Set rs = New ADODB.Recordset
rs.Open "Tabella1", cn, adOpenKeyset, adLockOptimistic, adCmdTable
For x = 1 To Sheets.Count
fornitore = Sheets(x).Name
With Sheets(x)
r = 2
Do While .Range("B" & r).Value <> "" ' Punta il controllo sulla colonna B
'non più sulla A
If .Range("E" & r).Value <> 0 Then
With rs
.AddNew
.Fields("Nriga") = Sheets(x).Range("A" & r).Value
.Fields("Codice") = Sheets(x).Range("B" & r).Value
.Fields("Descrizione") = Sheets(x).Range("C" & r).Value
.Fields("UM") = Sheets(x).Range("D" & r).Value
.Fields("qta") = Sheets(x).Range("E" & r).Value
.Fields("Prezzo") = Sheets(x).Range("F" & r).Value
.Fields("Valore") = Sheets(x).Range("G" & r).Value
.Fields("Fornitore") = fornitore
.Update
End With

End If
r = r + 1
Loop
End With
Next x
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
Msgbox ("Importazione Terminata")
End Sub


2) in Ambiente Access (in rosso le modifiche)

Private Sub Comando0_Click()
Dim DBCOrrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim I As Long
'Apre il file Excel
Workbooks.Open Filename:="c:\Prova.xls"

'Apre la tabella
Set DBCOrrente = CurrentDb
Set Tabella = DBCOrrente.OpenRecordset("Tabella1")

'conto il numero dei fogli del workbook
For x = 1 To Sheets.Count
fornitore = Sheets(x).Name
With Sheets(x)
r = 2 ' per ogni foglio inizio da riga 2
Do While .Range("B" & r).Value <> ""
'escludo tutti quelli che hanno il campo "Valore" =0
If .Range("E" & r).Value <> 0 Then

'Aggiorno la Tabella
With Tabella

.AddNew
.Fields("Nriga") = Sheets(x).Range("A" & r)
.Fields("Codice") = Sheets(x).Range("B" & r)
.Fields("Descrizione") = Sheets(x).Range("C" & r)
.Fields("UM") = Sheets(x).Range("D" & r)
.Fields("Qta") = Sheets(x).Range("E" & r)
.Fields("Prezzo") = Sheets(x).Range("F" & r)
.Fields("Valore") = Sheets(x).Range("G" & r)
.Fields("Fornitore") = fornitore
.Update
End With

End If
r = r + 1 ' passo alla lettura della riga successiva
Loop
End With
Next x
Tabella.Close
DBCOrrente.Close
Workbooks("Prova.xls").Close
MsgBox ("Importazione termina")
End Sub


Spero di non aver dimenticato nulla.
saluti
Andrea

---

salve
prova con questo codice:

Sub CopiaRecordset()
Dim Miorange As Range
Dim db As Database, rs As Recordset
DBName = "c:\il nome del database.mdb"
TableName = "Tabella1" ' Il nome della tua tabella
Dim Ncol As Integer
Set Miorange = Range("a1")
Set db = OpenDatabase(DBName)
Set rs = db.OpenRecordset(TableName, dbOpenTable)
For Ncol = 0 To rs.Fields.Count - 1
Miorange.Offset(0, Ncol).Value = rs.Fields(Ncol).Name
Next
Miorange.Offset(1, 0).CopyFromRecordset rs
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

da copiare in un modulo standard dell'editor VBa di excel

Ricordati di Attivare il riferimento "Microsoft DAO ... object Library"

Ora Vado a godermi la festa di Natale.

Cordiali e sinceri auguri
Andrea

---