Lo hago pero Re vinculando permanentemente, observe este ejemplo:}
HOJA DE EXCEL
TABLA VINCULADA A EXCEL
FORMULARIO PARA MOSTRAR LA TABLA
EVENTOS DEL FORMULARIO
Private Sub btnVincula_Click()
ViculaExcelDAO
Me.Requery
End Sub
Private Sub Form_Open(Cancel As Integer)
ViculaExcelDAO
Me.Requery
End Sub
El primer procedimiento es porque adicioné un botón para estar re vinculando, el segundo evento es cuando se abre el formulario, ambos eventos llaman la función VinculaExcelDAO()
FUNCIÓN VinculaExcelDAO
Public Function ViculaExcelDAO()
'Función para vincular hoja de excel, hoja1 no obstante se tomar un rango
'Elborado por: EDUARDO PEREZ FERNANDEZ
'13/04/2022
'
'Cambie productosExcel por el nombre que le quiera dar a
'la tabla vinculada
'Cambie vincula.xlsx por el nombre del archivo de Excel
'Cambie Hoja1$ por el nombre de la hoja
On Error Resume Next
Dim db As Database
Dim td As TableDef
' Referencio la base de datos actual
Set db = CurrentDb()
DoCmd.DeleteObject acTable, "productosExcel"
db.TableDefs.Refresh
' Creo un objeto TableDef
Set td = db.CreateTableDef("productosExcel")
' Establezco la información de conexión.
td.Connect = "Excel 8.0;HDR=Yes;IMEX=1;Database=" & CurrentProject.Path & "\vincula.xlsx"
' Vinculo los datos de la primera hoja del libro de trabajo
td.SourceTableName = "Hoja1$"
' Anexo el objeto TableDef para crear el vínculo
db.TableDefs.Append td
db.TableDefs.Refresh
db.Close
Set db = Nothing
End Function