[Resolvido] Acrescentar itens novos do Excel Para Tabela do Access

Moderador: Avelino Sampaio

Avatar do usuário
Carvalho
Mensagens: 133
Registrado em: 21 Ago 2015, 23:22

[Resolvido] Acrescentar itens novos do Excel Para Tabela do Access

Mensagempor Carvalho » 20 Out 2016, 15:18

Boa tarde pessoal da Rede Access,

Estou precisando mais uma vez da ajuda de vocês, o problema é o seguinte, tenho uma tabela e nela o usuário tem que acrescentar toda a semana uns itens novos na tabela, de um Excel para a tabela do access, a do access vai ter menos itens e a do excel tem mais, essa diferença que tem que ser inserido na tabela do access, como faço esse procedimento em formulário para o usuário apenas procurar o excel importar e acrescentar os itens novos do excel para a tabela do access.

Obs:. O Excel tem as mesmas colunas da tabela com os mesmo nome. se por acaso tiver diferente ele avise. coloquei as planilhas em anexo para melhor entendimento, tem um excel em anexo ao abrir vocês iram ver uns campos em verde, esses itens é que tem que ser acrescentados na tabela Access

Conto com a ajuda de vocês.

No aguardo.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Última edição por Carvalho em 21 Out 2016, 17:26, editado 1 vez no total.
Provérbios 1:7 “O temor do SENHOR é o princípio do saber, mas os loucos desprezam a sabedoria e o ensino.”

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Carvalho
Mensagens: 133
Registrado em: 21 Ago 2015, 23:22

Re: Acrescentar itens novos do Excel Para Tabela do Acces

Mensagempor Carvalho » 21 Out 2016, 11:02

Bom dia Rede Access

Alguém poderia me ajudar ?
Provérbios 1:7 “O temor do SENHOR é o princípio do saber, mas os loucos desprezam a sabedoria e o ensino.”

Avatar do usuário
Avelino Sampaio
Mensagens: 2160
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Acrescentar itens novos do Excel Para Tabela do Acces

Mensagempor Avelino Sampaio » 21 Out 2016, 11:39

Carvalho,

segue o código utilizado para atualizar a tabela. Atente para os comentários

Código:
Public Sub fncAtualizarTabela()
Dim strTabela As String
Dim strSQL As String
Dim bdExcel As DAO.Database
Dim rs As DAO.Recordset
'Passa o local e nome do arquivo para a variável
strArquivo = CurrentProject.Path & "\ExcelAtualizado.xlsx"
'Abre arquivo ExcelAtualizado.xlsx
Set bdExcel = OpenDatabase(strArquivo, False, False, "Excel 12.0;HDR=Yes;IMEX=0;")
'Monta a consulta da planilha, filtrada a partir do último lançamento da tabela
strSQL = "SELECT * FROM [Plan1$] WHERE jde > '" & DMax("jde", "TabelaParaAtualizar") & "';"
'Abre o Recordset da planilha filtrada
Set rs = bdExcel.OpenRecordset(strSQL)
'Percorre a lista da planilha
Do While Not rs.EOF
'Atualiza a tabela com os dados da planilha
strSQL = "INSERT INTO TabelaParaAtualizar (jde,DescriçãoMaterial,QtdMin,QtdMax,QtdReal) "
strSQL = strSQL & "VALUES('" & rs!jde & " ','" & rs!DescriçãoMaterial & "','" & rs!qtdMin & "','"
strSQL = strSQL & rs!qtdMax & "','" & rs!qtdReal & "');"
CurrentDb.Execute strSQL
rs.MoveNext
Loop
'fecha o Recordset
rs.Close
Set rs = Nothing
'Fecha o arquivo Excel
bdExcel.Close
Set bdExcel = Nothing
MsgBox "A tabela foi atualizada...", vbInformation, "Aviso"
End Sub


Nota: neste código estou considerando que o arquivo excel esteja no mesmo local que o BD. Fica a teu critério capturar o local do arquivo Excel, substituindo o currentProject.Path

Nota 2: Vc deve completar os campos na strSql. Só fui até o campo QtdReal.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Carvalho
Mensagens: 133
Registrado em: 21 Ago 2015, 23:22

Re: Acrescentar itens novos do Excel Para Tabela do Acces

Mensagempor Carvalho » 21 Out 2016, 17:25

Avelino boa tarde,

Ficou perfeito, era exatamente isso que eu precisava, muito obrigado por compartilhar os seus conhecimentos, Deus continue te abençoando.


Tópico resolvido.
Provérbios 1:7 “O temor do SENHOR é o princípio do saber, mas os loucos desprezam a sabedoria e o ensino.”

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x Excel”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante