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 Dados do Excel

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Importar Dados do Excel

    Mensagem  fabioavila 2/3/2022, 01:22

    Boa Noite

    Estou precisando importar alguns dados de uma planilha que baixamos do Banco Sicredi, porém gostaria de importar somente os dados do item: Liquidação - Compensação contendo as colunas abaixo:

    Nome Pagador l Venc l Vlr Líquido (R$)

    Em anexo o arquivo,

    Obrigado
    Anexos
    Importar Dados do Excel Attachmentrelatorio-3.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 25 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 5/3/2022, 19:18

    Boa tarde
    Sub ImportaFabioVila()
    '--------------------------------------------------------------'
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' utilize o código livremente mas mantenha os créditos '
    '--------------------------------------------------------------'
    Dim meuExcel, xls As Workbook, Linha As Integer
    Set meuExcel = CreateObject("Excel.Application")
    meuExcel.visible = False
    Set xls = meuExcel.Workbooks.Open("EnderecoCompletoDoFicheiroExcel")
    Linha = 1
    Do
    If xls.Sheets("Relatorio").Range("A" & Linha) = "Liquidação - Compensação" Then
    Do
    If Len("" & xls.Sheets("Relatorio").Range("A" & Linha)) = 0 Then GoTo Fecha
    With xls.Sheets("Relatorio")
    CurrentDb.Execute "INSERT INTO SuaTabela(NomePagador,Venc,VlrLíquido) VALUES ('" & .cells(Linha, 2) & "',#" & .cells(Linha, 2) & "#," & .cells(Linha, 6) & ")"
    End With
    Linha = Linha + 1
    Loop
    End If
    Linha = Linha + 1
    Loop
    Fecha:
    xls.Close True
    meuExcel.visible = True
    meuExcel.Quit
    End Sub


    .................................................................................
    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
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 15/3/2022, 17:34

    Ola Alexandre,

    Crio um botão e coloco essa ação nele ??
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 3/6/2022, 18:59

    Alguem?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Fim 3/6/2022, 19:06

    Fabio,
    voce pode criar um formulário comum botão e inserir a rotina do Alexandre Neves na sub do botão.
    Disponibilize seu bd para analise e solução do problema.
    Att,
    Alexandre


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Importar Dados do Excel Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 6/6/2022, 18:11

    segue o arquivo

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Fim 6/6/2022, 20:52

    Fabio,

    Por gentileza, disponibilize a planilha também para realizar os testes.

    Grato
    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Importar Dados do Excel Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 7/6/2022, 21:02

    Alexandre

    A planilha está no inicio do tópico.
    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 11/03/2012

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  egnaldo 11/6/2022, 17:57

    Boa tarde, estou vendo o código e da erro na linha
    Dim meuExcel, xls As Workbook, Linha As Integer

    o tipo não definido pelo usuário
    bem em "xls As Workbook"

    temos que referenciar ? se sim a qual ?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 12/6/2022, 16:30

    Boa tarde
    Referencie o Microsoft Excel referente à versão do Office (16.0?)


    .................................................................................
    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
    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 11/03/2012

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  egnaldo 12/6/2022, 22:42

    Obrigado!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 13/6/2022, 08:49

    Bom dia
    Se ficou resolvido, lembre-se de marcar o famoso "Resolvido"


    .................................................................................
    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
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 28/6/2022, 14:11

    Bom Dia

    Se alguem conseguiu poderia postar o arquivo pois nao consegui ainda.

    Obrigado

      Data/hora atual: 24/9/2022, 20:28