Ciao, quello che segue è il sunto del sunto di quello che uso io... ovviamente non funziona così com'è... va personalizzato con le tue esigenze...... c'è solo una funzione per aprire excel (mi raccomando i riferimenti), un recordset e un ciclo for... per il resto prova ad approfondire e a tentare qual "cosina" tu... ovviamente la parte relativa alla programmazione VBA excel non l'ho messa ... su internet c'è tanto.... per trattare integralmente la cosa ci sarebbe da aprire più di un 3D (anche in excel)
Dim xlApp As Object ' variabile globale
Dim oWks As Object ' variabile globale
Dim sfile as String
Function ApriExcel(sfile As String)
Set xlApp = CreateObject("Excel.Application")
Set oWks = xlApp.Workbooks.Open(CStr(CurrentProject.Path) & "\" & sfile)
xlApp.Visible = False
Set oWks = Nothing
Set xlApp = Nothing
End Function
Private Sub btn_Importa_Click()
Dim ExcelRecordset As DAO.Recordset
Dim i as integer
Dim inizio as integer
Dim fine as integer
Set ExcelRecordset = CurrentDb.OpenRecordset("tu Tbl o qry", dbOpenDynaset)
For i = inizio To fine ' ti devi spostare nel file excel... io non importo il range per questioni proprie del mio applicativo.
' e poi aggiungi i dati
ExcelRecordset.AddNew
ExcelRecordset.Fields("Tuo Campo") = Valore
ExcelRecordset.Update
Next
ExcelRecordset.Close
Set ExcelRecordset = Nothing
End Sub
sicuramente il codice nella sub va integrato nella function... o viceversa.. devono lavorare all'unisono... apri il file... leggi con le funzioni excelvba, scrivi nella tabella access tramite DAo e poi chiudi il file excel
a presto.