transformar de excel a acces

[Andres95]

Código:

'Para extraer datos de una tabla de excel
Option Explicit
Dim db As Database
Dim rs As Recordset
Private filepath As String
Private sheetname As String

Private Sub Form_Activate()
DoEvents
filepath = "h:\CIVIL_RAJ\HOMES\vb_raj\test.xls"
sheetname = "Sheet1$"
Set db = OpenDatabase(filepath, False, False, "Excel 8.0;HDR=yes;")
Set rs = db.OpenRecordset(sheetname)
rs.MoveFirst
Screen.MousePointer = 11
While rs.EOF <> True
List1.AddItem rs.Fields("Name") & "  " & rs.Fields(1) & "  " & rs.Fields(2)
rs.MoveNext
Wend
Screen.MousePointer = 0
End Sub

Y al reves...

Código:

Responde Enrique (SoftJaen)

Dim sExcelFileName As String
    Dim sWorksheetName As String
    Dim sTableName As String
    Dim db As Database

    ' Datos por defecto
    sExcelFileName = "G:\VBNews\Libro1.xls"
    sWorksheetName = "WorkSheet1"
    sTableName = "Tabla1"

    ' Abro la base de datos
    Set db = OpenDatabase("G:\VBNews\Bd1.mdb")

    'Si el archivo excel existe, lo elimino
    If Dir(sExcelFileName) <> "" Then Kill sExcelFileName

    ' Creo una tabla nueva mediante la instrucción
    ' SELECT...INTO
    db.Execute _
    "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelFileName & _
    "].[" & sWorksheetName & "] FROM " & "[" & sTableName & "]"

    ' Por último, cierro la base de datos
    db.Close
    Set db = Nothing

El acceso es DAO.


Fuente : http://accessbuho.mvps.org/tematico.asp?topico=tablas