MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Importar varios CSV para Access usando VBA

    avatar
    brunokroll
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 04/12/2017

    Importar varios CSV para Access usando VBA Empty Importar varios CSV para Access usando VBA

    Mensagem  brunokroll 14/12/2018, 12:24

    Bom dia pessoal,

    Preciso importar mensalmente os dados do registro de filiados a partidos.  São aproximadamente 900 tabelas todo mês, com os mesmos campos e colunas.

    Tenho 2 problemas:

    1) Estou tentando uma forma de fazer a importação automática. Gostaria que a importação agrupasse as varias tabelas em uma só (ou mais de uma caso ultrapasse o limite do Access)  Estou tentando com esse código que achei no fórum mas estou tendo dificuldades:

    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\bruno.santos\Desktop\filiados"
    strTable = "Filiados"
    strFile = Dir(strPath & "*.csv")

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

    MsgBox "A importação dos dados foi concluída", vbInformation

    End Sub

    Private Sub Comando0_DblClick(Cancel As Integer)

    End Sub



    Segundo problema:
    2) Os campos de colunas contém palavras acentuadas e com espaços.  Como fazer para isso não ser um problema na importação, sem eu ter q mudar manualmente as 900 tabelas?


    Exemplos em anexo


    Obrigado Smile
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    Importar varios CSV para Access usando VBA Empty Importar varios CSV para Access usando VBA

    Mensagem  good guy 14/12/2018, 13:26

    Olá Bruno,

    Ao compilar o código qual é a linha que acusa um problema? Quanto aos nomes dos campos nas tabelas, não sei dizer mas não vejo problema algum ao importar como está. É preciso fazer alguns testes, já testou com uma ou duas tabelas? Outra coisa, não veio o exemplo em anexo.

      Data/hora atual: 1/8/2021, 10:34