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

    referencia excel ausente

    Compartilhe

    poy
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    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
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    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: Sex 18 Ago 2017, 17:18