ExcellToAccess

Private Sub Form_Load()
ExportExcelSheetToAccess "Sheet1", "C:\Book1.xls", _
"TestTable","C:\Yams\bhar.mdb"
End Sub
Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, _
sAccessDBPath As String)
Dim dbAs Database
Dim rsAs Recordset
Set db = OpenDatabase(sExcelPath, True, False, _
"Excel 5.0")
Call db.Execute("Select * into [;database=" & _
sAccessDBPath & "]." & sAccessTable & _
" FROM [" & sSheetName & "$]")
MsgBox "Tabella esportata.", vbInformation
End Sub