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


    importar ficheiro excel

    avatar
    xikutuga
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 07/08/2013

    importar ficheiro excel Empty importar ficheiro excel

    Mensagem  xikutuga Ter 18 Mar 2014, 08:54

    bom dia,
    tenho uma duvida quero importar um ficheiro excel de forma automatizada e já pesquisei aqui no forum e consegui efectuara importação. acontece que preciso de seleccionar de forma simples o que importar dentro de uma pasta, estava a pensar tipo uma caixa de verificação ou algo do género onde seleccionasse os ficheiros desejados.....
    obrigado a todos abraço
    avatar
    xikutuga
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 07/08/2013

    importar ficheiro excel Empty importação parte II

    Mensagem  xikutuga Qua 19 Mar 2014, 14:47

    boa tarde a todos,
    hoje consegui efetuar resolver parte do que pretendia com um codigo bem simples por sinal, mas gostava da Vossa ajuda pois como os ficheiros de pagamentos não estao todos na pasta vão sendo acrecentados mes a mes e quero deixar tudo no codigo para o operador fazer todos os meses (por ex: o pagamentos 3.xlxs ainda não está na pasta), o codigo como está não faz a importação, o que é que me esta a escapar desta vez....
    obrigado a todos, segue usado.....

    Private Sub Comando74_Click()
    CurrentDb.Execute "DELETE * from pagamentos"
    If pag1.Value = -1 Then
    DoCmd.TransferSpreadsheet acImport, 8, "pagamentos", "C:\rsu\dados\pagamentos\pagamentos1.xlsx", True
    If pag2.Value = -1 Then
    DoCmd.TransferSpreadsheet acImport, 8, "pagamentos", "C:\rsu\dados\pagamentos\pagamentos2.xlsx", True
    If pag3.Value = -1 Then
    DoCmd.TransferSpreadsheet acImport, 8, "pagamentos", "C:\rsu\dados\pagamentos\pagamentos3.xlsx", True
    (continua até pagamentos12.xlxs)
    end if
    end sub

      Data/hora atual: Qui 07 Nov 2024, 20:38