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 XLS protegido com password

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Importar XLS protegido com password Empty Importar XLS protegido com password

    Mensagem  ahteixeira em 2/6/2017, 01: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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 13/2/2020, 22: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 11 vez(es)

      Data/hora atual: 24/2/2020, 10:56