☰

Предлагает выбрать таблицы Excel в Access?

tag-icon • tag-icon microsoft-excel microsoft-access-2007
Предлагает выбрать таблицы Excel в Access?

У меня есть база данных Microsoft Access 2007, которая использует электронные таблицы Excel для отслеживания изменений между ними. Каждую неделю создается новый файл. Затем я сравниваю их с помощью некоторых пользовательских SQL-запросов, которые я для них написал. Сейчас я связал их с помощью диспетчера связанных таблиц. Внутри него есть опция Всегда запрашивать новое местоположение, которая, похоже, ничего не делает, а просто заставляет меня повторно выбирать рабочие листы.

Можно ли сделать так, чтобы пользователю всегда предлагалось выбирать таблицы Excel при каждом открытии файла Access?

решение1

Вам нужно будет установить ссылку, а VBA (tools-References)затем найти и нажать, "Microsoft Office"чтобы использовать ее.

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

Примечание:Это не проверено.

Связанный контент