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

4 participantes

    Importar planilha Excel para o Access

    avatar
    EvertonMoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/09/2018

    Importar planilha Excel para o Access Empty Importar planilha Excel para o Access

    Mensagem  EvertonMoura 19/9/2021, 23:29

    Meus amigos, preciso de uma grande ajuda

    Preciso de um VBA ACCESS que importe uma planilha

    Exemplo tenho um Excel que tem as seguintes Sheets

    Sheet: Funcionários
    Sheet: Produtividade
    Sheet: Importação
    Sheet: Registros

    Eu preciso importar para o Access apenas as Sheets: Produtividade e Importação

    Poderiam me ajudar por favor


    Última edição por EvertonMoura em 20/9/2021, 01:27, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2192
    Registrado : 23/01/2018

    Importar planilha Excel para o Access Empty Re: Importar planilha Excel para o Access

    Mensagem  crysostomo 19/9/2021, 23:33



    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    EvertonMoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/09/2018

    Importar planilha Excel para o Access Empty VBA para importar planilha Excel

    Mensagem  EvertonMoura 20/9/2021, 01:31

    Infelizmente no Link que enviou não tem nada parecido Sad Sad

    Todos eles importam todas as Sheets
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2192
    Registrado : 23/01/2018

    Importar planilha Excel para o Access Empty Re: Importar planilha Excel para o Access

    Mensagem  crysostomo 20/9/2021, 11:00

    Poxa colega fico te devendo e acompanho o tópico.
    Porque o que eu faço é inserir e deletar as outras pelo comando.
    Fico acompanhando.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8206
    Registrado : 05/11/2009

    Importar planilha Excel para o Access Empty Re: Importar planilha Excel para o Access

    Mensagem  Alexandre Neves 23/9/2021, 18:45

    Boa tarde
    Apesar de estar no Access, está a trabalhar no Excel
    Pode fazer de 2 maneiras
    1- para importar cada folha
    abre o ficheiro, elimina as folhas excedentes, grava com novo nome
    importa através do transferspreedsheet
    elimina o ficheiro do novo nome
    2-
    cria recordset
    estabele ligação com ficheiro e percorre linha a linha da folha pretendida
    carrega os dados no recordset
    fecha o ficheiro


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    Importar planilha Excel para o Access Empty Re: Importar planilha Excel para o Access

    Mensagem  Alexandre Fim 23/9/2021, 19:46

    Everton,

    Copie e cole o código abixo, e substitua os nomes em letra maiusculas pelos objetos pertinentes à importação:

    Código:


    Private Sub BOTAO_DE_COMANDO_Click()
    On Error GoTo trata_erro
    Dim appExcel    As Excel.Application
    Dim wb          As Excel.Workbook
    Dim sh          As Excel.Worksheet
    Dim strArq      As String

        strArq = "NOME_DA_SUA_PLANILHA"  '-- EX.: "C:\Planilhas\MinhaPlan.xlsx"

        Set appExcel = CreateObject("Excel.Application")
        Set wb = appExcel.Workbooks.Open(strArq)
       
        Set sh = wb.Sheets("NOME_DA_SUA_SHEET")
       
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NOME_DA_TABELA", strArq, True, sh.Name & "!"
       
        wb.Close
        appExcel.Quit
       
        Exit Sub
       
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub
       
    End Sub


    É isso.

    Boa sorte.

    []'s

    FIM

    crysostomo gosta desta mensagem


      Data/hora atual: 1/10/2022, 14:58