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

    Importar XLS protegido com password

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar XLS protegido com password Empty Importar XLS protegido com password

    Mensagem  Alvaro Teixeira 1/6/2017, 21:35

    Olá, a propósito de questão de colega partilho exemplo para importar ficheiro de Excel protegido por password.

    A função é da autoria de Alex Dybenko, Moscovo, Russia

    Código:
    Function ImportProtected(strFile As String, strPassword As String)
    '-------------------------------------------------------------------------------------------------------
    'Origem: http://accessblog.net/2005/04/how-to-import-password-protected-excel.html
    '            Alex Dybenko, Moscow, Russia
    '-------------------------------------------------------------------------------------------------------
        Dim oExcel As Object, oWb As Object
        Set oExcel = CreateObject("Excel.Application")
        Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
        Password:=strPassword)
        DoCmd.TransferSpreadsheet acImport, _
        acSpreadsheetTypeExcel9, "tbl_importada", strFile, -1
        oWb.Close SaveChanges:=False
        oExcel.Quit
        Set oExcel = Nothing
    End Function

    Nota: A password do ficheiro de excel que acompanha o exemplo é 123.

    Abraço

    pcnet gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  Alvaro Teixeira 13/2/2020, 19:44

    Olá, segue abaixo exemplo.

    Para permitir também no formato novo (XLSX ou XLSM) alterar no código onde tem:
    Código:
    fd.Filters.Add "Ficheiro XLS", "*.xls", 1

    para:
    Código:
    fd.Filters.Add "Ficheiro XLS,XLSX;XLSM", "*.xls;*.xlsx;*.xlsm", 1

    Abraço
    Anexos
    Importar XLS protegido com password AttachmentImportar_XLS_protegido_com_password.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 95 vez(es)

    Carvalho gosta desta mensagem

    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 244
    Registrado : 18/01/2013

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  Carvalho 18/9/2020, 10:12

    obrigado, ótimo exemplo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  Alvaro Teixeira 18/9/2020, 13:51

    cheers

    Conteúdo patrocinado


    Importar XLS protegido com password Empty Re: Importar XLS protegido com password

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 06:08