[Resolvido]Importação de arquivo (CSV) para o access

Boa tarde pessoal,

Estou com uma situação em que preciso importar para o access uma série de arquivos (cerca de 200) para uma mesma tabela no banco de dados, esses arquivos estão no formato CSV.

Existe alguma opção em que eu consiga realizar essa importação via VBA ou de alguma maneira mais prática?

Obs.: Todos os arquivos possuem a mesma quantidade de colunas (cerca de 120). Em anexo, está um modelo da planilha em que preciso importar para um banco de dados access.

Boa tarde, e bem-vindo ao fórum
Veja este stackoverflow.com/questions/11275356/vba-procedure-to-import-csv-file-into-access

Realizei a conversão do arquivo para (.xlsx), e consegui realizar a importação para o access.

Me deparei com outra situação, no banco de dados já existe as colunas formatadas (por exemplo, na coluna empresa como número, descrição como texto curto e assim por diante), porém no momento de realizar a importação de alguns arquivos para o access, algumas colunas estão fora deste formato.. existe alguma opção para solucionar este problema (ou seja, que todos as colunas "Empresas" dos 200 arquivos, sejam importadas como "número")?

Outra questão, a partir de um código VBA aqui do fórum, fiz algumas adaptações para tentar importar o arquivo no formato (.csv), porém está ocorrendo o seguinte erro ('31519' - Não é possível importar o arquivo.)

Código:


Private Sub Comando0_Click()

Dim strPathFile As String
Dim strFile As String
Dim strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean

blnHasFieldNames = True
strPath = "C:\Users\mathe\Desktop\testes - csv\" ' diretório onde os arquivos estão localizados
strTable = "tdDados" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.csv") 'nome do seu arquivo, importa todos os arquivos que estiverem em C:\ para a tabela do banco.

Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferText acImportDelim, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
Loop

End Sub


Está debugando na seguinte parte:

Código:


DoCmd.TransferText acImportDelim, _
strTable, strPathFile, blnHasFieldNames


Alguém poderia me dar uma luz nessas duas situações apontadas acima?

Obrigado

Por gentileza, alguém poderia me auxiliar?

Grato.

Bom dia....

Matheus, as colunas que estão na planilha do Excel, tem que ter as mesmas nomenclaturas da tabela ( nomes dos campos ) que vai receber os dados a serem importados.
Se possível, essa planilha a ser importada, os dados de todas as células coloque como formato texto.
Se houver algum campo de numeração automática nessa planilha, exclua a coluna da mesma, para não haver choque com a numeração automática da tabela.

Olá a todos,

Acho que não será obrigatório ter os mesmos nomes.
Na minha opinião, pode , importar/ligar(vincular) para uma tabela temporaria, exemplo tblCSVtemp.
Depois através de uma consulta adiconar obtem o pretendido.

Mais outro exemplo de importar:
https://www.maximoaccess.com/t26120-resolvidoimportar-csv-para-tabela

Abraço a todos

Álvaro, boa tarde.

Veja, já passei por isso, quando tentei importar, dava erro de nomenclatura. Depois que coloquei a nomenclatura correta, parou de dar erro.

Olá a todos
Silvio, vamos aguardar o retorno do colega.

Matheus Freitas o ideal será postar a base de dados com a tabela que vaiu receber os dados do exemplo postado na mensagem nº 1.

Assim fica mais fácil para qualquer membro poder testar e ajudar.
Abraço

Boa noite pessoal,

Agradeço pelas respostas, mas ainda estou com um pequeno problema..

Inicialmente estava com os arquivos em formato (.csv), mas acabei convertendo-os para o formato (.xlsx).

O meu problema agora é no momento da importação das informações para o access. Não está respeitando os critérios, por exemplo, na coluna "Valor de aquisição", utilizando o código (VBA) do exemplo em anexo, ao final da importação, as casas decimais dos valores estão sendo ignoradas.

Pelo que verifiquei aqui no fórum, o comando "DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9" não leva formatação, portanto, existe alguma forma que atenda minha necessidade?

No anexo está os arquivos para análise.

Abraço

Bom dia....

Matheus, aqui vai algumas dicas....

1- jamais coloque dessa forma nos campos que originam os nomes em tabelas
Errado:
Classe do imobilizado
Transferência de aquisição
1ª aquisição

Correto:
ClasseImobilzado
TransferenciaAquisicao
PAquisicao

2- Ou seja....em hipotese alguma use: palavras acentuadas e com espaços. Existe um campo lá abaixo chamado Legenda onde pode-se colocar com espaços e acentos.

3- Essa regra vale também quando se dá o nome a tabela, formulários, relatórios e consultas.

4- Respondendo a tua duvida.
Campo Valor de aquisição..coloque tipo moeda e veja o resultado.

O problema foi sanado, fiz uma reestruturação na tabela e alterei os formatos também.

Obrigado Silvio!

Abraço

Boa tarde.

Ótimo que resolveu.

Abraços e o fórum agradece o retorno.