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

    EvertonMoura
    avatar
    EvertonMoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/09/2018
    • Mensagem nº1

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

    Mensagem  EvertonMoura Dom 19 Set 2021, 10:29 pm

    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 Seg 20 Set 2021, 12:27 am, editado 1 vez(es)
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018
    • Mensagem nº2

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

    Mensagem  crysostomo Dom 19 Set 2021, 10:33 pm



    .................................................................................
    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.
    • Ir para o topo
    EvertonMoura
    avatar
    EvertonMoura
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 21/09/2018
    • Mensagem nº3

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

    Mensagem  EvertonMoura Seg 20 Set 2021, 12:31 am

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

    Todos eles importam todas as Sheets
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018
    • Mensagem nº4

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

    Mensagem  crysostomo Seg 20 Set 2021, 10:00 am

    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.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº5

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

    Mensagem  Alexandre Neves Qui 23 Set 2021, 5:45 pm

    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
    • Ir para o topo
    Alexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016
    • Mensagem nº6

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

    Mensagem  Alexandre Fim Qui 23 Set 2021, 6:46 pm

    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

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Sáb 27 Abr 2024, 8:35 pm