¿Solicitar seleccionar hojas de cálculo de Excel en Access?

Tengo una base de datos Microsoft Access 2007 que usa hojas de cálculo de Excel para rastrear los cambios entre los dos. Se genera un nuevo archivo cada semana. Luego hago una comparación con los dos con algunas consultas SQL personalizadas que escribí para ellos. En este momento los tengo vinculados usando el Administrador de tablas vinculadas. Dentro de eso, hay una opción para solicitar siempre una nueva ubicación que parece no hacer nada más que hacer que actualmente vuelva a seleccionar las hojas de trabajo.

¿Hay alguna forma de hacer que siempre se solicite al usuario que seleccione las hojas de cálculo de Excel cada vez que abre el archivo de Access?

microsoft-excel microsoft-access-2007

— Halfwarr
fuente

Si las hojas de cálculo tienen el mismo nombre de archivo y están en la misma ubicación, no necesita actualizar los enlaces. Si ese no es el caso, la mejor solución es escribir un código VBA que solicite al usuario que seleccione los archivos.

— Dave Becker

Deberá establecer una referencia en, VBA (tools-References)luego buscar y hacer clic "Microsoft Office"para usar esto.

Dim myDialog As FileDialog
Dim strFile As String
Dim strSearchPath as string
Dim vrtSelectedItem As Variant
Set myDialog = Application.FileDialog(msoFileDialogOpen)

With myDialog
    .AllowMultiSelect = True
     .Filters.Add "Excel Files", "*.xls", 1
    .Title = "Select the file"
    .InitialFileName = strSearchPath
    If .Show = -1 Then   
        For Each vrtSelectedItem In .SelectedItems         
          ImportIt (vrtSelectedItem)
        Next vrtSelectedItem
    Else
        'The user pressed Cancel.
    End If
   Set myDialog = Nothing
End With

Nota: no está probado.

— Siva Charan
fuente