[Resolvido]Importar excel para o access, mas sem sobrepor os dados

Amigos boa noite

Me cadastrei no forum hj e gostaria de uma ajuda por favor

gostaria de ter uma rotina de importação de um excel para uma tabela do access, mas que essa importação nao sobrepusesse os dados importados do dia anterior., pois farei isso diariamente.
Gostaria que os dados fosses importados em sequencia sabe
è possivel?

Talvez fosse melhor considerar a possibilidade de ter isso vinculado ao invés de importar. Assim nem precisa aumentar o tamanho do seu banco sem necessidade, uma vez que já tem os dados na planilha. Então vincula e tem os dados disponíveis no Access.

E por gentileza, altere o título para minúsculas, para ficar de acordo as regras do forum.

Olá td bem?

È que realmente, eu precisaria de um código que fizesse isso automaticamente. Estou querendo aprender VBA e gostaria de ter um codigo desse tipo.
Pode me ajudar

Tente assim:

DoCmd.TransferSpreadsheet acImport, 8, "NomeTabela", "C:\Arquivos\ArquivoExel.xlsx", True

Ola seja bem vindo ao forum;

Veja estes codigos e se tiver duvidas dê um grito aqui.

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Código:
Importa Excel para Access

olá amigos tudo bem?
Desculpe qualquer contratempo, vou procurar me adaptar ao padrão do fórum para facilitar a comunicação.
E parabenizá-los pelo mesmo, é realmente sensacional
Bem
JS, bom dia
Eu vi os códigos e nao consegui indentificar um código que possa me ajudar.
Vou tentar detalhar o problema
Tenho um código em VBA que faz a importação de um excel para uma tabela chamada "tabela importada", entretanto, gostaria que nessa tabela fosse inserida, todas as importaçãoes diarias, sem sobreposiçaõ dos dados.
Podem me ajudar

Anexei minha consulta a mensagem

Os dados já importados da planilha podem sofrer alteração? Se não, bastaria você limpar a tabela e importar tudo novamente.

Olá..obrigado por responder
Na verdade, os dados devem ser gravados em sequencia, pois como vou realizar importações diárias, gostaria de ter uma planilha única que agregue os dados.
Por exemplo hoje importo um arquivo do excel com 16 linhas, e amnha um arquivo com 18 linhas, o segundo arquivo deve ser gravado, logo após o primeiro.

muito grato

Então será um arquivo por dia? Não é a mesma planilha? Então pode importá-las sem problemas, pois os dados não devem se sobrepor, mas sim serem gravados na sequência. Caso o nome do arquivo Excel mude, você irá apenas precisar de um parâmetro que busque o nome, dependendo do tipo dele. Por exemplo, se for nome de data, você acrescenta esse parâmetro, ou coloca um filedialog para buscar o arquivo.
Só uma ressalva: planilhas editadas devem ser evitadas. Por exemplo, vamos supor que você grave 16 dados na planilha hoje. Amanhã você grava outros 18 dados, sendo que os primeiros 16 são gravados em cima desses 16 anteriores. Aí pode acontecer da sua tabela criar linhas em branco referentes às 16 linhas sobrepostas, pois pode acontecer do Access ler como se fossem 16 + 18.

O seu código tem no inicio;

DoCmd.DeleteObject acTable, "Tabela importada"

Assim apagará a tabela existente e importa uma nova.

Recomendo;

Mude o nome da tabela no código, para importar para uma nova e diferente, por exemplo tblTemporaria

Faça uma consulta de acréscimo em cima dessa tabela, para acrescentar na original e assim irá sempre adicionando.

ahh Ok.
Muito Obrigado

JS eu faço a consulta acrescimo em cima de uma tabela oficial que eu criei e a partir dai faço as consultas que preciso. A ideia é essa né

Fala galera!!!

Aproveitando o topico, tbm estou fazendo um BD que tera a necessidade de importar dados do excell.
Ja estou utilizando o codigo abaixo, mas minha necessidade é que somente os dados do registro que nao existe sejam inseridos na tabela.

A planilha do excell sera uma exportacao de um banco sql de um cadastro de clientes online. Dai a cada novo cadastro o sistema me exportara os dados para uma planilha no excell, e dai eu importo esta planilha na minha tabela do access. Mas dai corre o risco de duplicacao de dados, que posso ate por na tabela meu campo id como unico mas quero que em VBA qdo o registro ja existir me apareca a mensagem de erro de importacao daquele registro mas que importe os registro que ainda nao exista.

Código:

Private Sub Importar_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "membros" 'nome da tabela no seu banco
strFile = Dir(strPath & "membros.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
If membros_id = membros_id Then
MsgBox ("Alguns dados não puderam ser importados, pois ja existem")
Else
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
MsgBox ("Dados importados com sucesso")
Loop

End If

End Sub


Desta forma esta funcionando mas qdo ele encontra um registro que ja existe ele para o codigo e nao continua a busca afim de encontrar possiveis regstros que ainda nao exista e faça a importacao.

Se alguem puder me ajudar tbm gostaria que ao clicar no importar fosse solicitado o caminho da planilha a ser importada.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.