Ti viene richiesto di selezionare fogli di calcolo Excel in Access?

Ho un database di Microsoft Access 2007 che utilizza fogli di calcolo Excel per tenere traccia delle modifiche tra i due. Un nuovo file viene generato ogni settimana. Quindi faccio un confronto con i due con alcune query SQL personalizzate che ho scritto per loro. In questo momento li ho collegati tramite Gestione tabelle collegate. Al suo interno c'è un'opzione per richiedere sempre una nuova posizione che sembra non fare altro che farmi selezionare nuovamente i fogli di lavoro.

Esiste un modo per indurre sempre l'utente a selezionare i fogli di calcolo Excel ogni volta che aprono il file Access?

microsoft-excel microsoft-access-2007

— Halfwarr
fonte

Se i fogli di calcolo hanno lo stesso nome file e si trovano nella stessa posizione, non è necessario aggiornare i collegamenti. In caso contrario, la soluzione migliore è scrivere il codice VBA che richiede all'utente di selezionare i file.

— Dave Becker,

Sarà necessario impostare un riferimento in VBA (tools-References)quindi trovare e fare clic su "Microsoft Office"per utilizzare questo.

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: non è stato testato.

— Siva Charan
fonte