Prompt to select excel spreadsheets in Access?

Question

I have a Microsoft Access 2007 database that uses excel spreadsheets to track changes between the two. A new file is generated every week. I then do a compare against the two of them with some custom SQL Queries that I wrote for them. Right now I have them linked using the Linked Table Manager. Inside that there is an option to Always prompt for new location that appears to do nothing but make me currently reselect the worksheets.

Is there anyway to always make it prompt the user to select the excel spread sheets each time they open the Access file?

Answer 1

You will need to set a reference in VBA (tools-References) then find and click on "Microsoft Office" to use this.

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

Note: It's not tested.