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 várias planilhas excel

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/11/2012

    Importar várias planilhas excel

    Mensagem  ilvecchio em Qui 18 Set 2014, 13:44

    (coloquei isso no tópico original, mas ele já está como "resolvido", então posto novamente)


    Buenas!
    Peguei este código do João Paulo:

    Sub Importa10030()

    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    blnHasFieldNames = True

    strPath = "C:\PlanilhasImportar\" ' drive onde se situa o seu documento excel
    strTable = "10030_PlanilhasImportadas" 'nome da tabela no seu banco
    strFile = Dir(strPath & "*.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 Sub


    Bacana. Importa legal, mas insere várias linhas em branco na tabela. Nada que não possa ser resolvido com uma consulta exclusão.
    Porém, quero entender porque isso acontece, e saber se posso matar a questão na origem.
    avatar
    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 08/10/2012

    Re: Importar várias planilhas excel

    Mensagem  Ney em Sex 26 Set 2014, 18:50

    Amigo, ja tentou importar via Macro??

      Data/hora atual: Ter 24 Out 2017, 08:33