MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Importar planilha excel escolhendo banco de destino

    Compartilhe

    CRIS_FUNCIONAL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 14/06/2015

    [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  CRIS_FUNCIONAL em Qui 05 Maio 2016, 18:33

    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



    Última edição por CRIS_FUNCIONAL em Qui 12 Maio 2016, 22:57, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  ahteixeira em Qui 12 Maio 2016, 16:41

    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

    CRIS_FUNCIONAL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 14/06/2015

    Re: [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  CRIS_FUNCIONAL em Qui 12 Maio 2016, 22:31

    Teixeira obrigado pela resposta.

    Seguir sua orientação e conseguir.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  ahteixeira em Sex 13 Maio 2016, 16:50

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

      Data/hora atual: Sab 03 Dez 2016, 19:43