¿Pregunta para seleccionar hojas de cálculo de Excel en Access?

Question

Tengo una base de datos de Microsoft Access 2007 que utiliza hojas de cálculo de Excel para realizar un seguimiento de los cambios entre las dos. Cada semana se genera un nuevo archivo. Luego hago una comparación con los dos con algunas consultas SQL personalizadas que escribí para ellos. Ahora los tengo vinculados mediante 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 obligarme a volver a seleccionar las hojas de trabajo.

¿Existe alguna forma de solicitar siempre al usuario que seleccione las hojas de cálculo de Excel cada vez que abre el archivo de Access?

Answer 1

Deberá establecer una referencia, VBA (tools-References)luego buscarla y hacer clic en ella "Microsoft Office"para usarla.

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.