Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo : 
Localização : 
Mensagens : 8295
Registrado : 05/11/2009
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
Início
relatorio-3.xls 
Marcar tópico como Resolvido: 
