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 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    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]"))



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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, 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    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.]




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    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.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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 : 9
    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 : 9
    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: Sab 21 Out 2017, 20:35