Подскажите выбрать таблицы Excel в Access?

0

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

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

Halfwarr
источник
Если электронные таблицы имеют одинаковое имя файла и находятся в одном месте, вам не нужно обновлять ссылки. Если это не так, лучшим решением является написание кода VBA, который предлагает пользователю выбрать файлы.
Дейв Беккер

Ответы:

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

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

Шива Чаран
источник