Avisar para selecionar planilhas do Excel no Access?

Question

Eu tenho um banco de dados do Microsoft Access 2007 que usa planilhas do Excel para rastrear alterações entre os dois. Um novo arquivo é gerado a cada semana. Eu então faço uma comparação com os dois deles com algumas consultas SQL personalizadas que eu escrevi para eles. Agora eu tenho eles ligados usando o Gerenciador de tabelas vinculadas. Dentro dela há uma opção para Sempre solicitar novo local que parece não fazer nada além de me fazer selecionar novamente as planilhas.

Existe alguma maneira de sempre solicitar ao usuário que selecione as planilhas do Excel sempre que abrir o arquivo do Access?

    

Answer 1

Você precisará definir uma referência em VBA (tools-References) , em seguida, encontrar e clicar em "Microsoft Office" para usar isso.

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: não foi testado.