[Resolvido] Importar dados Excel editando o existente e incluindo o não existente

Bom dia meus caros!

Formato da tabela:

Empresa|CodProduto|CodOriginal|Descrição|Aplicação|Valor|Obs

Por gentileza, conto com a ajuda de vocês, já procurei no repositórios...

Importe tudo para uma tabela temporaria e depois é fazer uma consulta acrescimo.

JPaulo, antes de tudo, obrigado pelo retorno tão rápido e que Deus continue iluminando sua inteligência...

Eu ja criei uma tabela desta forma que me disse, até então usei o código a seguir mas não funfou:

Private Sub SeuBotao_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 = "SuaTabela" 'nome da tabela no seu banco
strFile = Dir(strPath & "SeuExcel.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End

Como não ?

A primeira celula de cada coluna no seu excel, terá de ter o nome igual na tabela.

Ótimo JPaulo, agora só me ajuda aprimorar este código pra ele deletar toda a tabela antes de importar, ja vi isto mas não me lembro onde.

Mas quer deletar toda a tabela ?

Se assim for, é simples;

No inicio do código, coloque;

DoCmd.RunSQL "delete * from SuaTabela"

Certinho JPaulo


Muito o obrigado e Deus te abençoe!

Obrigado pelo retorno o fórum agradece.

Private Sub SeuBotao_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 = "SuaTabela" 'nome da tabela no seu banco
strFile = Dir(strPath & "SeuExcel.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _ que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0 strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End escreveu:

Olá pessoas,

Reviramos muitos tópicos pela selva, que por sinal todos eles são bem interessantes, porém, e para não abrir um novo tópico, talvez achamos que este código, deste poste, seja o mais próximo da solução do problema que deparamos e que estamos tentando solucionar a tempos.

Temos aqui um bd para organizar as rotinas da nossa área, o qual com algumas tabelas relacionadas - um para muitos, um para um, chaves primárias, chaves estrangeiras como suas integridades referenciais e variados tipos de campos, etc...

Recebemos periodicamente planilhas do Excel com dados que terão que ser atualizados ou acrescentados às tabelas, e mais ainda, alguns desses dados do Excel talvez já exista em alguns campos das tabelas, outros dados são novos, os quais serão acrescentados ou atualizados no bd.

Muito bem...
Acontece que algumas colunas desta planilha se referem a uma primeira tabela, outras colunas se referem a uma subtabela relacionada à primeira, com suas respectivas integridades, e assim por diante...
Fato é que todas as tabelas do bd estão relacionadas com suas chaves e suas integridades referenciais etc...

Somos a favor de importar esta planilha de uma única vez, fazendo com que as colunas de cada grupo da planilha, sejam acrescentadas e atualizadas nas respectivas tabelas e subtabelas do bd. Porém o impasse é que o bd, como vemos, não está baseado em apenas em uma única tabela, mas em tabelas sub-relacionadas e formulário e subfolhas como que em forma de cascata

Algumas questões:
Qual seria a melhor maneira de organizar estas colunas da planilha do Excel para importar ao bd?
Qual seria a melhor maneira de adaptar este código a este caso?
Como fazer com que ao clicar de um botão em um formulário, esta rotina seja automatizada para que não seja feita mais de forma manual?

Utilizamos o Office 2003...

Agradecemos qualquer sugestão...