MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 4
    Registrado : 14/06/2015

    [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  CRIS_FUNCIONAL em Qui 05 Maio 2016, 14: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, 18:57, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 12 Maio 2016, 12: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 : 4
    Registrado : 14/06/2015

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

    Mensagem  CRIS_FUNCIONAL em Qui 12 Maio 2016, 18:31

    Teixeira obrigado pela resposta.

    Seguir sua orientação e conseguir.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sex 13 Maio 2016, 12:50

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

      Data/hora atual: Qui 23 Nov 2017, 23:53