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]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Compartilhe

    ErvinCM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/01/2012

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ErvinCM em 21/9/2012, 19:06

    Preciso abrir uma pasta (diretório) escolher arquivo a carregar para importação em uma tabela, sendo que a pasta(diretório)contem diversos arquivos para importação e quero fazer a importação de um de cada vez haja vista que todo mês vou importar um arquivo novo acrecentando os dados à tabela.

    Como abrir uma janela escolher arquivo que vai ser importado ao executar uma macro-importação clicando em botão comando.
    De modo que o usuario informe o local e nome do arquivo a ser importado, quando executar a macro de importação de dados.

    Att.

    Ervin de Menezes
    Campo Mourão - PR
    e_mail: [Você precisa estar registrado e conectado para ver este link.]
    study

    Convidad
    Convidado

    Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Convidad em 21/9/2012, 20:59

    teste


    Private Sub teubotao_Click()
    Call BrowsingWindow
    End Sub

    'habilite a referencia VBA Microsoft Office xx.x Object Library
    Sub BrowsingWindow()

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

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Select the file you want to import"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next
    DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath
    Else
    Exit Sub
    End If
    End With

    End Sub

    ErvinCM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/01/2012

    Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ErvinCM em 26/9/2012, 15:37

    OK, màs ao executar apresentou a seguinte mensagem:
    Erro de compilação: O tipo definido pelo usuário não foi definido

    Pode me ajudar ?

    Ervin
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3468
    Registrado : 04/04/2010

    Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Avelino Sampaio em 26/9/2012, 16:00

    Vc ativou a referência no VBA , conform o Ricardo te indicou ??

    'habilite a referencia VBA Microsoft Office xx.x Object Library

    Qual é versão do seu Access ?

    ErvinCM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/01/2012

    Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ErvinCM em 27/9/2012, 15:52

    OK deu certo, obrigado pela dica.

    edsonsousa3711
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/10/2015

    Não consigo

    Mensagem  edsonsousa3711 em 18/8/2016, 02:46

    Boa noite fiz conforme anunciado no fórum e da erro

    edsonsousa3711
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/10/2015

    Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  edsonsousa3711 em 18/8/2016, 02:49

    Private Sub importar_Click()
    Call BrowsingWindow
    End Sub

    'habilitei a referencia VBA Microsoft Office 14.0 Object Library
    Sub BrowsingWindow()

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

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Select the file you want to import"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next
    DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath
    Else
    Exit Sub
    End If
    End With

    End Sub

    Mas no campo Dlg As FileDialog da erro e não segue mais em frente e se eu mudo algo aí que nao funciona por favor me ajudem
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ahteixeira em 18/8/2016, 09:47

    Olá Edson Evangelista,
    Testei aqui no 2010 e está a funcionar na perfeição.
    Acho que será mesmo a questão das referencias, veja como fazer no editor do VBA:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Anexo o meu teste.
    Abraço

    Lourandir
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 03/08/2014

    Importar no ACCESS escolhendo o local (Excel)

    Mensagem  Lourandir em 3/4/2017, 13:30

    Bom dia Amigos!
    É possível fazer a importação de um arquivo em Excel, e já utilizando uma tabela existente com os parâmetros de entrada em cada campo?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ahteixeira em 3/4/2017, 17:34

    Olá Lourandir Ramos, seja bem-vindo ao fórum.
    Sim, é possível, pode importar como está (tabela temporária)
    E depois será uma consulta adicionar da tabela temporária para a tabela pretendida.
    No final eliminar tabela temporária.
    Abraço

      Data/hora atual: 16/11/2018, 12:23