Aufforderung zur Auswahl von Excel-Tabellen in Access?

Question

Ich habe eine Microsoft Access 2007-Datenbank, die Excel-Tabellen verwendet, um Änderungen zwischen den beiden zu verfolgen. Jede Woche wird eine neue Datei generiert. Dann vergleiche ich die beiden mit einigen benutzerdefinierten SQL-Abfragen, die ich für sie geschrieben habe. Im Moment habe ich sie mit dem Linked Table Manager verknüpft. Darin gibt es eine Option, die immer nach einem neuen Speicherort fragt, die aber scheinbar nichts bewirkt, außer dass ich die Arbeitsblätter erneut auswählen muss.

Gibt es eine Möglichkeit, den Benutzer bei jedem Öffnen der Access-Datei immer zur Auswahl der Excel-Tabellen aufzufordern?

Answer 1

Sie müssen eine Referenz festlegen, diese VBA (tools-References)dann suchen und anklicken, "Microsoft Office"um sie zu verwenden.

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

Notiz:Es ist nicht getestet.