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

    Código para importar excel para access via VB

    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/03/2014

    Código para importar excel para access via VB Empty Código para importar excel para access via VB

    Mensagem  Cleniroweb 23/9/2014, 05:15


    Amigos,
    Na strPath = "C:\" do código abaixo, se eu quiser chamar o caminho através de caixa de texto (txtCaminho), ou seja, o arquivo excel não ficará determinado em um diretório fixo, como ficaria o código?


    Private Sub SeuBotao_Click()
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    'apaga todos os registros da tabela
    CurrentDb.Execute "DELETE * from SuaTabela"
    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 Sub Embarassed
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Código para importar excel para access via VB Empty Re: Código para importar excel para access via VB

    Mensagem  Alexandre Neves 23/9/2014, 18:03

    Boa tarde,
    Não prolifere a mesma dúvida. Esta dúvida será eliminada por se tratar de repetição para manter o fórum limpo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 28/3/2024, 17:56