EXPORTAR UM ATABELA DO EXCEL PARA O ACCESS

Citação:

Private Sub Form_Load()
Dim aplicativo As New Excel.Application
Dim documento As New Excel.Workbook
Dim nCont As Long
Dim nCont2 As Long

Set documento = aplicativo.Workbooks.Open("c:\plans.xls")

For nCont = 2 To 51 '50 registros
For nCont2 = 1 To 2 'dois campos
MsgBox documento.Application.Cells(nCont, nCont2).Value
'Rotina de Migração
Next
Next

'Eu começo da linha 2, porque na linha 1 contém os títulos

End Sub