Se lo devi fare a mano Non devi fare copia e incolla, ma puoi tranquillamente aprire il tuo db di access e selezionare NUOVA TABELLA/IMPORTA DATI e selezionare quindi il tuo file excel, li poi ti chiederà le varie informazioni ad es. se ci sono le righe di intestazione, se ci sono campi che non vuoi importare ecc., se vuoi che i dati di excel finiscano in una nuova tabella o in una esistente

oppure, se lo vuoi fare da codice


Aggiungere il riferimento alla libreria Excel.



Dim excelApp As Microsoft.Office.Interop.Excel.Application
Dim FileExcel As Microsoft.Office.Interop.Excel.Workbook
Dim FoglioExcel As Microsoft.Office.Interop.Excel.Worksheet
Dim RangeExcel As Microsoft.Office.Interop.Excel.Range




Private Sub cmdLeggiExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAvvia.Click
Dim nomeFile As String
Dim mioPath As String
Dim nome As String
Dim cognome As String

mioPath = "C:\Documents and Settings\Excel\"
nomeFile = "mia_cartella.xls"

ApriExcel()
'file, foglio
ApriFile(mioPath & nomeFile, 1)

Dim numriga
Dim appoCapofila
For numriga = 2 To dammiNumRighe()
CellaFoglioExcel = FoglioExcel.Cells(numriga, 3)

nome= CellaFoglioExcel.Value
CellaFoglioExcel = FoglioExcel.Cells(numriga, 5)
cognome= CellaFoglioExcel.Value
insertRecord(nome, cognome)


Next


chiudifile()
chiudiExcel()
lblmess.Text = "Operazione terminata"
End Sub