MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar de Excel para Access

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Importar de Excel para Access Empty [Resolvido]Importar de Excel para Access

    Mensagem  zcarloslopes em 18/05/20, 02:19 pm

    Boa tarde a todos,

    Venho mais uma vez pedir a vossa ajuda...

    Parece fácil, mas não consigo achar um meio de o fazer..

    Preciso de importar dados um um ficheiro excel: "FileX", folha: "SheetY", coluna "B:B" para uma tabele access: "tbl_DataZ", coluna: "Dados"

    O procedimento seria num formulário access.

    O nome do ficheiro excel, folha excel e coluna excel são variáveis, como tal, no form onde irá ocorrer a ordem de importação tem 3 campos que serão pré-preenchidos com:
    txtLivro: path do ficheiro excel; txtFolha: nome da folha excel e txtColumn: designação da coluna a importar.

    A tabela access é fixa, tem mais que um campo e será sempre limpa antes de cada importação.

    Alguma ideia?


    Última edição por zcarloslopes em 20/05/20, 11:17 am, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Importar de Excel para Access Empty Re: [Resolvido]Importar de Excel para Access

    Mensagem  ahteixeira em 19/05/20, 02:33 pm

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Importar de Excel para Access Empty Re: [Resolvido]Importar de Excel para Access

    Mensagem  zcarloslopes em 19/05/20, 03:46 pm

    Boa tarde ahteixeira pelo retorno,

    Já havia pesquisado no forum e encontrado os tópicos que referiu, mas não vão de encontro ao meu propósito.

    Talvez eu não me tenha explicado correctamente.

    O problema desta importação é que o ficheiro excel, folha e coluna não são sempre as mesmas, nem sequer o ficheiro excel sempre da mesma versão.

    Por outro lado a tabela e campo da tabela a receber os dados é fixa.

    Para tal, terei que criar um form com os campos para seleccionar o ficheiro a importar, de seguida seleccionar a folha de cálculo desse ficheiro e por fim o coluna dessa folha de cálculo com o nome pretendido.

    Já tenho uma demo que funciona no office 2003, terei que testar em outras versões.
    Código:

    Dim sPath As String
    Dim sSheet As String
    Dim sColumn As String

    sPath = Me.txtLivro
    sSheet = Me.txtFolha & "$"
    sColumn = Me.txtColumn

    CurrentDb.Execute "INSERT INTO tbl_X ([CampoX]) SELECT [" & sColumn & "] AS [CampoX] FROM [Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & sPath & "].[" & sSheet & "] AS CampoX;"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Importar de Excel para Access Empty Re: [Resolvido]Importar de Excel para Access

    Mensagem  ahteixeira em 20/05/20, 08:08 am

    Olá Carlos,

    Pode ser como tem ou também lembrei que pode ligar o Access à "tabela de excel" e depois poderia trabalhar com consulta selecionar e adicionar.
    Seria como estar a trabalhar com uma tabela temporária.
    Fica mais esta dica.

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Importar de Excel para Access Empty Re: [Resolvido]Importar de Excel para Access

    Mensagem  zcarloslopes em 20/05/20, 11:17 am

    Funcionou nas versões 2003 e 2007 no formato da Mensagem Nº3

    Obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Importar de Excel para Access Empty Re: [Resolvido]Importar de Excel para Access

    Mensagem  ahteixeira em 20/05/20, 11:47 am

    Olá Carlos,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 05/08/20, 06:42 pm