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 tabela Excel para Access - 2010

    Compartilhe

    weys31
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/01/2011

    Macro Importar tabela Excel para Access - 2010

    Mensagem  weys31 em Seg 02 Jul 2012, 14:38

    Bom dia pessoal,

    Alguem sabe como posso fazer uma macro que importe uma tabela do Excel, automaticamente com a seguinte questão?

    O procedimento é o mesmo da importação via menu do access (mas automatico), mas necessito que ela pare na tela de seleção de arquivo a ser importado(para que possa escolher qualquer endereço de arquivo), e que dai em diante a macro assuma novamente.

    Ou existe algum comando VBA que faça isso no códico

    Private Sub SeuBotao_Click()
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    blnHasFieldNames = True
    strPath = "C:\" ' drive onde se situa o seu documento excel
    strTable = "tblExemplo" 'nome da tabela no seu banco

    strFile = Dir(strPath & "*.xls") 'preciso que aqui tenha uma opção para procurar o arquivo, com "*.xls" ele carrega todos, e eu quero que ele defina o selecionado.

    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop
    End Sub


    Se alguem souber como agradeço desde ja.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  JPaulo em Seg 02 Jul 2012, 14:42

    É o simples;

    Varios exemplos:

    strFile = Dir(strPath & Me.SeuCampo.Value)

    strFile = Dir(strPath & "SeuLivro.xls")

    strFile = Dir(strPath & DLookUp("[Nome_Campo]","Nome_Tabela","[Id_Campo]=Forms![Nome_Formulario]![Id_Campo]"))



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    weys31
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/01/2011

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  weys31 em Seg 02 Jul 2012, 14:57

    Eu entendi o simples, mas o que eu preciso é meio complexo acho.

    quero que ele abra essa tela por exemplo.

    [Você precisa estar registrado e conectado para ver este link.]

    E depois de selecionar a planilha ele compreenda que ela é meu arquivo a ser importado.

    Tentei o comando "Application.FileDialog" concatenado mas nao sei se posso fazer isso.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  JPaulo em Seg 02 Jul 2012, 15:26

    Coloque o ficheiro Excel em anexo, no C:\ para testar;

    No banco de exemplo, pressione o botão do formulario e veja o resultado.

    [Você precisa estar registrado e conectado para ver este link.]




    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    weys31
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/01/2011

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  weys31 em Seg 02 Jul 2012, 15:53

    Muuuuuuuuuuuuuuuito util, grande ajuda.

    Sabe me dizer porque ele nao funciona fora do "C:\" ?

    Caso nao saiba, isso ja é um grande avanço pra mim.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  JPaulo em Seg 02 Jul 2012, 15:58

    Eu testei no C:\, agora existem Drives que podem ser de Rede ou estar protegidas.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  JPaulo em Seg 02 Jul 2012, 16:01

    Para quem não tem o Access 2007 ou 2010;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    weys31
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/01/2011

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  weys31 em Seg 02 Jul 2012, 16:42

    A tudo bem, esta viavel e util. Obrigado pela ajuda.

    andrealmeida
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/11/2012

    Muito Obrigado!

    Mensagem  andrealmeida em Qua 21 Nov 2012, 02:51

    Vlw demaissssss! Uma belezura de código!

    Me ajudou imensamente!

    jones99
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 28/03/2012

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  jones99 em Ter 19 Fev 2013, 13:55

    Ola eu tentei aplicar esse codigo no meu formulario mais esta dando o seguinte erro
    Dim JanelaDeProcura As Office.FileDialog alguem pode me ajudar???

    Bardavil
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/08/2016

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  Bardavil em Sab 20 Ago 2016, 21:10

    Ola, também testei no meu BD e está dando o mesmo erro do jones99, alguém pode ajudar?

    Bardavil
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/08/2016

    Re: [Resolvido] Importar tabela Excel para Access - 2010

    Mensagem  Bardavil em Sab 27 Ago 2016, 17:21

    No meu BD funcionou.

    Tive que ativas o seguinte: abre o Módulo Visual Basic - Ferramentas - Referências, na caixa que abrir marque como ativo "Microsoft Visual Basic for Applications Extensibility 5.3.




      Data/hora atual: Qua 07 Dez 2016, 08:33