[Resolvido]Importar planilha excel escolhendo banco de destino

Pessoal Boa Tarde,

O código abaixo permite escolher o arquivo excel e importar para o banco de dados atual. Existe alguma forma de escolher o banco que irá receber essa importação ?

Código:


Sub BrowsingWindow()

Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant

Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Selecione o arquivo para importação"
.AllowMultiSelect = False
If .Show = True Then

For Each varFile In .SelectedItems
txtFilePath = varFile
Debug.Print txtFilePath
Next
Debug.Print txtFilePath

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NovaTabela", txtFilePath, True

Else
Exit Sub
End If
End With

End Sub



Olá Cristiano, bem-vindo ao fórum MaximoAccess.

Podemos importar e depois exportar para o ficheiro desejado, veja  a instrução SQL
CurrentDb.Execute "SELECT NovaTabela.* INTO TabelaNova IN 'C:\PastaDestino\TabelaDestino.mdb' FROM NovaTabela;"

Codigo completo abaixo, nao se esqueça de atualizar o caminho e nome da base de dados.

Código:

Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant

Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Selecione o arquivo para importação"
    .AllowMultiSelect = False
        
        If .Show = True Then
            For Each varFile In .SelectedItems
            txtFilePath = varFile
            Debug.Print txtFilePath
            Next
            Debug.Print txtFilePath
            
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NovaTabela", txtFilePath, True
            
            DoEvents
            CurrentDb.Execute "SELECT NovaTabela.* INTO TabelaNova IN 'C:\PastaDestino\TabelaDestino.mdb' FROM NovaTabela;"
        Else
            Exit Sub
        End If
    End With
End Sub



Abraço

Teixeira obrigado pela resposta.

Seguir sua orientação e conseguir.

Olá Cristiano, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço