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
    avatar
    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 2/7/2012, 07: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
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/7/2012, 07: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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    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 2/7/2012, 07:57

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

    quero que ele abra essa tela por exemplo.

    https://redcdn.net/ihimg/photo/my-images/651/abrir.png/

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

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/7/2012, 08: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.

    https://dl.dropbox.com/u/771097/Wesley.rar




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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    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 2/7/2012, 08: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
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/7/2012, 08: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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/7/2012, 09:01



    Última edição por JPaulo em 10/8/2018, 06:22, editado 1 vez(es)


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    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 2/7/2012, 09:42

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

    Respeito às Regras 100%

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

    Muito Obrigado!

    Mensagem  andrealmeida em 20/11/2012, 19:51

    Vlw demaissssss! Uma belezura de código!

    Me ajudou imensamente!
    avatar
    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 19/2/2013, 06: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???
    avatar
    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 20/8/2016, 14:10

    Ola, também testei no meu BD e está dando o mesmo erro do jones99, alguém pode ajudar?
    avatar
    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 27/8/2016, 10: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.



    avatar
    marcoshsouza
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 10/04/2017

    Arquivo não disponível

    Mensagem  marcoshsouza em 9/8/2018, 06:19

    Bom dia JPaulo,
    Obrigado por sua grande ajuda e pronto atendimento a todos.
    Você pode disponibilizar o BD de exemplo novamente no DropBox?

    Muito obrigado
    Marcos
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 10/8/2018, 06:22

    Ola;

    Disponivel na mensagem Nº7.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 20/2/2019, 11:12