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

3 participantes

    [Resolvido]Recurso de biblioteca de objetos não suportado

    avatar
    hd.favaretto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  hd.favaretto 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  Alvaro Teixeira 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 : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  hd.favaretto 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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  Alvaro Teixeira 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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  DamascenoJr. 16/9/2021, 02:52

    Henrique, alguma novidade?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    hd.favaretto gosta desta mensagem

    avatar
    hd.favaretto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  hd.favaretto 16/9/2021, 11:58

    Deu certo!
    Muito obg a todos, fiz o que falaram aqui e deu ceto!
    lol!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recurso de biblioteca de objetos não suportado Empty Re: [Resolvido]Recurso de biblioteca de objetos não suportado

    Mensagem  Alvaro Teixeira 20/9/2021, 09:37

    cheers

      Data/hora atual: 1/10/2022, 15:47