Importar datos excel a access macro

Hola, tengo la siguiente situación:

Tengo una base de datos creada en Access, vinculada a una tabla de Excel, la cosa es que la tabla de Excel le voy agregando datos mediante una macro, que me importa datos específicos de archivos que voy recibiendo periódicamente. Mi pregunta es si es que puedo usar la misma macro en Access, para lograr el mismo fin, y dejar de depender de Excel y manejarme 100% en Access.

La macro que he creado es más o menos así:

Sub Cop()


Dim a As Integer
seguir = MsgBox("Bienvenid@ a la importación de datos." & vbCrLf & "¿Quieres continuar?", vbQuestion + vbYesNo, "Intro")
On Error Resume Next
If (seguir = vbYes) Then
yuwe = MsgBox("A continuación se te pedirá el archivo a importar.", vbDefaultButton1, "Intro")


libro = Application.GetOpenFilename ' aquí pido el archivo excel de donde tomo los datos.
If (libro = False) Then
noas = MsgBox("No has seleccionado ningún archivo.", vbExclamation)
Else
Workbooks.Open (libro)
a = ActiveSheet.Cells(7, 6) ' aquí esta escrito como ejemplo para copiar una celda
Workbooks("habilitado.xlsm").Sheets("Hoja1").Activate ' cambio de hoja (a la que quiero copiar)
ActiveSheet.Cells(2, 4) = a ' y copio la celda.
Call NumSem
frs = MsgBox("Importación Completada", "Intro", vbInformation)
End If


Else: we = MsgBox("Has elegido cancelar", vbExclamation, "Intro")
End If


End Sub

Añade tu respuesta

Haz clic para o