Sub VincularHojasExcel()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim tbl As TableDef
Dim strSQL As String
' Establecer la conexión con la base de datos de Access
Set db = CurrentDb()
' Obtener la tabla en la que deseas vincular las hojas de Excel
Set tbl = db.TableDefs("NombreTabla")
' Crear una instancia de la aplicación de Excel
Set xlApp = New Excel.Application
' Abrir cada hoja de Excel y vincularla a un elemento de la tabla
Set rs = db.OpenRecordset("SELECT * FROM NombreTabla") Do While Not rs.EOF
' Obtener el nombre del archivo de Excel para esta fila
strSQL = "SELECT NombreArchivo FROM NombreTabla WHERE ID = " & rs!ID
' Cambiar "NombreTabla" por el nombre real de tu tabla
' Cambiar "ID" por el campo que identifica cada elemento de tu tabla
' Cambiar "NombreArchivo" por el campo que contiene el nombre del archivo de Excel
' Ejecutar la consulta y obtener el nombre del archivo
Dim fileName As String
fileName = db.OpenRecordset(strSQL).Fields("NombreArchivo")
' Abrir el archivo de Excel y vincularlo a la tabla
Set xlWorkbook = xlApp.Workbooks.Open(fileName)
Set tbl.Connect = "Excel " & xlWorkbook.FullName & ";"
tbl.RefreshLink
' Cerrar el archivo de Excel
xlWorkbook.Close
Set xlWorkbook = Nothing
rs.MoveNext
Loop
' Limpiar objetos
rs.Close
Set rs = Nothing
Set tbl = Nothing
Set db = Nothing
' Cerrar la aplicación de Excel
xlApp.Quit
Set xlApp = Nothing
End Sub
