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 Planilha Excel .Xlsx com Senha

    avatar
    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 29/08/2012

    [Resolvido]Importar Planilha Excel .Xlsx com Senha Empty [Resolvido]Importar Planilha Excel .Xlsx com Senha

    Mensagem  Clebergyn em 12/2/2020, 19:34

    Bom dia gente

    Estou tentando importar uma planilha do excel xlsx com senha e não estou conseguindo. Vi alguns exemplos e todos so importam versão xls mas o xlsx parece que não funcona. Se alguem tiver alguma experiencia e puder me ajudar agradeço.

    Este exemplo por exemplo não funciona inserindo a senha
    Código:

    Function ImportProtected(strFile As String, _
    strPassword As String)
    Dim exApp As Excel.Application
    Dim oExcel As Object, oWb As Object, wkb As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
    Password:=strPassword)
    DoCmd.TransferSpreadsheet transfertype:=acImport, SpreadsheetType:=5, _
    TableName:="tmpTableName", FileName:=strFile, _
    Hasfieldnames:=True, Range:="Q1!C:G"
     Set exApp = appExcel.Workbooks.Open(strFile)
          exApp.Password = strPassword
    exApp.Save:  exApp.Close
    oWb.Close SaveChanges:=False
    oExcel.Quit
    Set oExcel = Nothing
    End Function`
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Importar Planilha Excel .Xlsx com Senha Empty Re: [Resolvido]Importar Planilha Excel .Xlsx com Senha

    Mensagem  ahteixeira em 13/2/2020, 22:46

    avatar
    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 29/08/2012

    [Resolvido]Importar Planilha Excel .Xlsx com Senha Empty Re: [Resolvido]Importar Planilha Excel .Xlsx com Senha

    Mensagem  Clebergyn em 14/2/2020, 02:26

    Deu certo!

    Obrigado Alvaro Teixeira, o problema era que para xlsx com mais de uma guia na planilha continuava pedindo a senha, mas vi em um exemplo, colocando na opção "Range", o intervalo da guia a ser importada tipo:"Grupperat!A1:C1000", assim deu certo, nao pediu mais a senha, valeu obrigado!
    avatar
    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 29/08/2012

    [Resolvido]Importar Planilha Excel .Xlsx com Senha Empty Re: [Resolvido]Importar Planilha Excel .Xlsx com Senha

    Mensagem  Clebergyn em 14/2/2020, 02:29

    Resolvido
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Importar Planilha Excel .Xlsx com Senha Empty Re: [Resolvido]Importar Planilha Excel .Xlsx com Senha

    Mensagem  ahteixeira em 23/2/2020, 19:48

    cheers

      Data/hora atual: 1/12/2020, 15:37