MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Importar planilha excel escolhendo banco de destino

    avatar
    CRIS_FUNCIONAL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar planilha excel escolhendo banco de destino Empty [Resolvido]Importar planilha excel escolhendo banco de destino

    Mensagem  CRIS_FUNCIONAL 5/5/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 12/5/2016, 22:57, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 12/5/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
    avatar
    CRIS_FUNCIONAL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  CRIS_FUNCIONAL 12/5/2016, 22:31

    Teixeira obrigado pela resposta.

    Seguir sua orientação e conseguir.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 13/5/2016, 16:50

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:00