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
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