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


2 participantes

    referencia excel ausente

    avatar
    poy
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    referencia excel ausente Empty referencia excel ausente

    Mensagem  poy Seg 02 Dez 2013, 11: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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    referencia excel ausente Empty Re: referencia excel ausente

    Mensagem  criquio Qua 04 Dez 2013, 13:55

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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 22 Nov 2024, 22:26