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

    Recurso de biblioteca de objetos não suportado

    avatar
    hd.favaretto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 06/02/2018

    Recurso de biblioteca de objetos não suportado Empty Recurso de biblioteca de objetos não suportado

    Mensagem  hd.favaretto em 26/5/2020, 13:13

    Olá Amigos, preciso de uma ajuda.

    Tenho uma Sub em um modulo onde sua função é atualizar planilhas de um determinado BD. estou executando essa tarefa no Access 2019.

    Acontece que, ao realizar a execução dessa SUB, aparece o seguinte erro. "Erro de compilação: Recurso de biblioteca de objetos não suportado."

    Porém, ao tentar rodar no Access 2016, em um computador de menor velocidade (menor memoria e um processador inferior) o comando é executado de forma normal, sem apresentar o erro.
    O código que estou utilizando está conforme abaixo:


    Código:
    Sub atualizavv()
    Dim excelapp As Excel.Application
    Dim planilha As Workbook

    Dim planilhaatual(5, 1) As String

    Set excelapp = CreateObject("excel.application")

    excelapp.Visible = False

    planilhaatual(1, 0) = "vv_velocidade_vendas.xlsb"
    planilhaatual(1, 1) = 1

    planilhaatual(2, 0) = "vv_velocidade_vendas_cortes.xlsb"
    planilhaatual(2, 1) = 1

    planilhaatual(3, 0) = "vv_velocidade_vendas_ind.xlsb"
    planilhaatual(3, 1) = 1

    planilhaatual(4, 0) = "vv_velocidade_vendas_terceiros_laticinios.xlsb"
    planilhaatual(4, 1) = 1

    planilhaatual(5, 0) = "evol_estq.xlsb"
    planilhaatual(5, 1) = 1


    excelapp.EnableEvents = False

    For i = 1 To 5

       Set planilha = excelapp.Workbooks.Open("c:\bases\velocidadevendas\planilhas_atuais\" & planilhaatual(i, 0))
       
       For r = 1 To planilhaatual(i, 1)
           
           planilha.RefreshAll
           
       Next r
       
       planilha.Save

       planilha.Close False

    Next i

    excelapp.Quit
     

    End Sub


    Agradeço a ajuda, muito obrigado.

    Henrique
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Recurso de biblioteca de objetos não suportado Empty Re: Recurso de biblioteca de objetos não suportado

    Mensagem  ahteixeira em 26/5/2020, 14:50

    Olá Henrique,

    Já compilou o seu projeto, apresenta erros?
    ALT+F11 -> Debug -> Compile

    Em que linha do código está a dar o erro?

    Abraço
    avatar
    hd.favaretto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 06/02/2018

    Recurso de biblioteca de objetos não suportado Empty Re: Recurso de biblioteca de objetos não suportado

    Mensagem  hd.favaretto em 26/5/2020, 14:58

    Olá ahteixeira,

    O erro vai direto para a linha referente a "Set excelapp = CreateObject("excel.application")", e o "excelapp" fica selecionado.

    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Recurso de biblioteca de objetos não suportado Empty Re: Recurso de biblioteca de objetos não suportado

    Mensagem  ahteixeira em 26/5/2020, 15:02

    Olá Henrique,

    Verifique as "referências" se não está em falta.
    Se o problema se mantiver, partilhe base de dados de teste com o erro para se testar.

    Abraço

      Data/hora atual: 15/8/2020, 05:31