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


5 participantes

    Importar Dados do Excel

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    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 41 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8454
    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 : 287
    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 : 287
    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 : 3364
    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 : 287
    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 : 3364
    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 : 287
    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 : 92
    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 : 8454
    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 : 92
    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 : 8454
    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 : 287
    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
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabiopavila 21/6/2023, 03:58

    Boa Noite

    Usando o código funcionou mas como esta acontecendo que a cada arquivo de retorno do banco ele está mudando o layout da planilha desta forma não esta me atendendo .

    Código:

        '--------------------------------------------------------------'
        ' código criado por Alexandre Neves, do Fórum MaximoAccess '
        ' utilize o código livremente mas mantenha os créditos '
        '--------------------------------------------------------------'
        
        Dim meuExcel As Object, xls As Object, linha As Integer
        Set meuExcel = CreateObject("Excel.Application")
        meuExcel.Visible = False
        Set xls = meuExcel.Workbooks.Open("C:\sistemas\LOJA PASSO A PASSO\relatorio-3.xls")
        linha = 1
        
        ' Abre o banco de dados do Access
        Dim db As DAO.Database
        Set db = DBEngine.OpenDatabase("C:\sistemas\LOJA PASSO A PASSO\obaoba 2.mdb")
        
        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")
                        Dim CLIENTE As String
                        Dim dtPagto As Variant ' Alterado para Variant
                        Dim valorPago As Variant ' Alterado para Variant
                        
                        CLIENTE = .Cells(linha, 2)
                        dtPagto = .Cells(linha, 3).Value ' Substitua o número 3 pelo número da coluna correta
                        valorPago = .Cells(linha, 6).Value ' Substitua o número 6 pelo número da coluna correta
                        
                        Debug.Print "NomePagador: " & CLIENTE
                        Debug.Print "Vencimento: " & dtPagto
                        Debug.Print "VlrLíquido: " & valorPago
                        
                        ' Verifica se o valor da célula é uma data válida
                        If IsDate(dtPagto) Then
                            ' Verifica se o valor da célula é numérico
                            If IsNumeric(valorPago) Then
                                ' Atualiza os dados na tabela AReceber
                                Dim strSQL As String
                                strSQL = "UPDATE AReceber SET Dt_Pgto = Date() , Valor_Pago = " & Replace(valorPago, ",", ".") & _
                                         " WHERE Dt_Vencimento = #" & Format(CDate(dtPagto), "yyyy-mm-dd") & "#"
                                
                                ' Executa a consulta de atualização
                                db.Execute strSQL, dbFailOnError
                            Else
                                Debug.Print "Valor inválido para valorPago"
                            End If
                        Else
                            Debug.Print "Valor inválido para dtPagto"
                        End If
                    End With
                    linha = linha + 1
                Loop
            End If
            linha = linha + 1
        Loop
        
    Fecha:
        xls.Close True
        meuExcel.Visible = True
        meuExcel.Quit
        
        ' Fecha o banco de dados do Access
        db.Close
        Set db = Nothing
    End Sub

    O que preciso é que ele busque os dados nos campos Nome Pagador e Vlr Líquido (R$) e faça a importação, anexo a planilha para entenderem melhor a minha dúvida
    Anexos
    Importar Dados do Excel Attachmentrelatorio-3.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 14 vez(es)
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 23/6/2023, 20:45

    Alguem pode dar um help ?
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 3/7/2023, 17:22

    Será que alguem pode me ajudar nisso por favor!
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabiopavila 10/7/2023, 00:05

    Boa Noite

    Tantos amigos no fórum e ninguém pra me dar um Feedback !
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 16/7/2023, 16:44

    Boa tarde
    Onde acontece a mudança? É a bd que cria um ficheiro excel diferente?
    Se sim, tem algum padrão para encontrar os dados a importar?
    Se sim, tem de criar código para localizar esses dados; se não, não pode automatizar uma situação não padronizada


    .................................................................................
    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 Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 16/7/2023, 16:48

    Veja se a diferença está apenas nas linhas deixadas em branco ,
    Se sim, crie código para eliminar linhas em branco e tem de estabelecer quantas linhas em branco podem existir (1000 no máximo) para não entrar num ciclo infinito e não se desenvecilhar do programa


    .................................................................................
    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 : 287
    Registrado : 22/03/2011

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  fabioavila 17/7/2023, 13:37

    Alexandre ,

    Ocorre que mudou o layout no exemplo inicial FUNCIONOU mas ele ficava somente uma ex:

    LINHA 10:

    Nome Pagador Vlr Líquido (R$)
    joao R$ 400,00
    maria R$ 400,00
    antonio R$ 400,00


    Agora ele ta saindo em varias linhas separadas

    Linha: 22

    Nome Pagador Vlr Líquido (R$)
    joao R$ 400,00

    Linha: 32
    Nome Pagador Vlr Líquido (R$)
    maria R$ 400,00
    antonio R$ 400,00

    E assim por diante...








    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Alexandre Neves 17/7/2023, 20:00

    Boa tarde
    Se não tiver padrão, não pode ser padronizado. Terá que mexer à mão para adequar antes da importação automática ou, se forem poucos dados, importar manualmente


    .................................................................................
    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

    Conteúdo patrocinado


    Importar Dados do Excel Empty Re: Importar Dados do Excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/7/2024, 00:24