Importar Dados do Excel

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

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

Ola Alexandre,

Crio um botão e coloco essa ação nele ??

Alguem?

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

segue o arquivo

Fabio,

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

Grato
Att,
FIM

Alexandre

A planilha está no inicio do tópico.

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 ?

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

Obrigado!

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

Bom Dia

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

Obrigado

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

Alguem pode dar um help ?

Será que alguem pode me ajudar nisso por favor!

Boa Noite

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

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

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

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

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