MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Importar varios CSV para Access usando VBA

    Compartilhe
    avatar
    brunokroll
    Novato
    Novato

    Respeito às Regras 100%

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

    Importar varios CSV para Access usando VBA

    Mensagem  brunokroll em 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 100%

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

    Importar varios CSV para Access usando VBA

    Mensagem  good guy em 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: 18/3/2019, 22:27