ciao, ti ringrazio per il link (mi è stato utile), però se non chiedo troppo adesso ho un problema.. praticamente dal foglio excel devo solamente esportare alcune colonne (e non tutto il foglio).. ho postato il seguente codice, però non so come far reperire il nome del foglio attivo in automatico (dato che cambia per ogni file excel che devo importare):

Private Sub cmdImporta_Click()

Dim Conn As New ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Dim i As Long
Dim foglio As String
Dim TabVendite As ADODB.RecordSet


Set Conn = New ADODB.Connection

Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\StampeCoco\Database.accdb; Persist Security Info=false"

Set TabVendite = New ADODB.RecordSet
Set TabVendite.ActiveConnection = Conn

'Dichiaro il Recordset e la variabile per la Query
Dim SQL As String
Set RecordSet = New ADODB.RecordSet

foglio = ActiveSheet.Name

'Creo la query per reperire i dati sul foglio Excel
SQL = "SELECT DATA, NEGOZIO, AREA1, REPARTO, CATEGORIA, CONSUNTIVO, ART_CONS FROM [foglio ]"

RecordSet.Open SQL, Conn

'Mediante un ciclo, scorro tutto il Recordset compiendo una serie di INSERT sulla tabella di destinazione appena creata
With RecordSet

While Not .EOF
SQL = "INSERT INTO TabVendite " & _
"(Data, IdNegozio, IdArea, IdReparto, IdCategoria, Consuntivo, NumeroClienti) VALUES (" & _
"'" & .Fields("DATA").Value & "', " & _
"'" & .Fields("NEGOZIO").Value & "', " & _
"'" & .Fields("AREA1").Value & "')" & _
"'" & .Fields("REPARTO").Value & "')" & _
"'" & .Fields("AREA").Value & "')" & _
"'" & .Fields("REPARTO").Value & "')" & _
"'" & .Fields("CATEGORIA").Value & "')" & _
"'" & .Fields("CONSUNTIVO").Value & "')" & _
"'" & .Fields("ART_CONS").Value & "')"

CurrentProject.Connection.Execute SQL
RecordSet.MoveNext
Wend
End With
' Chiudo il Recordset e annullo l'oggetto
RecordSet.Close
Set RecordSet = Nothing
' Chiudo la connessione
Conn.Close
Set Conn = Nothing

End Sub

praticamente non riesco a fargli passare in automatico il nome del foglio.. ho provato con ActiveSheet.Name ma non funziona... saresti così gentile da potermi dire come risolvere questo problema..

grazie mille.. ciao