Solicitar a seleção de planilhas do Excel no Access?

Question

Tenho um banco de dados Microsoft Access 2007 que usa planilhas do Excel para rastrear alterações entre os dois. Um novo arquivo é gerado toda semana. Em seguida, faço uma comparação entre os dois com algumas consultas SQL personalizadas que escrevi para eles. No momento, eu os tenho vinculados usando o Linked Table Manager. Dentro dele há uma opção para Sempre solicitar um 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, VBA (tools-References)localizar e clicar "Microsoft Office"para usá-la.

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

Observação:Não foi testado.