MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    referencia excel ausente

    Compartilhe

    poy
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/01/2012

    referencia excel ausente

    Mensagem  poy em Seg 02 Dez 2013, 13:16

    Tenho um sistema que é executado em dois locais diferentes. Em uma das máquinas tenho o Office 2010 e em outra o 2003.

    O sistema está em um HD externo.

    Quando o executo na versão 2010 o sistema automaticamente substitui a referência do Excel mas o mesmo não acontece na versão 2003

    Tentei utilizar o código abaixo mas verifiquei que a referência do Excel nem é testada

    Como posso resolver isso?

    Código :


    Sub registrar()

    ' remove as referencias ausentes do Excel
    Dim R As Reference
    Dim versao As String
    Dim caminho As String
    Dim ref As Reference
    Dim ausente As String

    On Error Resume Next

    For Each R In References
    caminho = R.FullPath

    If R.IsBroken = True Then
    Set ref = References.AddFromFile(caminho)
    End If
    Next

    End Sub

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: referencia excel ausente

    Mensagem  criquio em Qua 04 Dez 2013, 15:55

    Tente colocar uma mensagem exibindo o nome das referências para ver se aparece essa mensagem.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Dom 04 Dez 2016, 12:15