Caio, de fato o que o Reinaldo citou sobre a rotina que postei, se não me falha a memoria foi para um caso tambem expecifico onde se pretendia instalar determinada referencia, e foi somente um exemplo de como se instalar, teria de ser adaptada uma vez que soubessemos qual a referencia.
Quanto a questão do 64 bits, tambem procede, já tivemos casos com esta versão:
[RESOLVIDO] Erros (64bits) - Aplicativo de Cadastro
http://www.tomasvasquez.com.br/forum/vi ... 2007#p5954
De uma olhada tambem no artigo abaixo, pode dar alguma idéia :
Considerações para automação do lado do servidor do Office
http://support.microsoft.com/kb/257757/pt-br
Como citei em um tópico hoje, precisamos verificar versões do Windows, Office, se as bibliotecas, dlls, ocx são das mesmas versões, ou seja as causas podem ser variadas, não lido com arquivos em rede, mas vejo muitos problemas relacionados a incompatibilidades onde trabalho devido ao "Suporte" não proceder os mesmos tipos de instalações nos diversos Pcs aqui.
Não me lembro de onde tirei a rotina acima, mas você pode utilizar a abaixo para verificar quais as referencias estão instaladas :
Fonte :
List All References in Workbook VBProject
http://www.mrexcel.com/forum/showthread.php?t=606440
Sub Grab_References()
'Comments:
'
'Purpose: List all references used in the workbook
'Additional information: http://www.cpearson.com/Excel/vbe.aspx
'
'References: Microsoft Visual Basic for Applications Extensibility 5.3
'
'Date Developer Action
'---------------------------------------------
'01/18/12 ws Created
Dim wb As Workbook
Dim ws As Worksheet
Dim n As Integer
Dim x As Integer
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Plan1")
With wb
On Error Resume Next
x = 1
For n = 1 To .VBProject.References.Count
ws.Cells(x, 1) = n
ws.Cells(x, 2) = .VBProject.References.Item(n).Description
ws.Cells(x, 3) = .VBProject.References.Item(n).Major
ws.Cells(x, 4) = .VBProject.References.Item(n).Minor
ws.Cells(x, 5) = .VBProject.References.Item(n).FullPath
ws.Cells(x, 6) = .VBProject.References.Item(n).GUID
x = x + 1
Next n
ws.Columns("A:G").EntireColumn.AutoFit
End With
'Tidy up
Set wb = Nothing
Set ws = Nothing
End Sub
O Código deve ter procedido, como está explicito na rotina do dite abaixo :
Programming The VBA Editor
http://www.cpearson.com/Excel/vbe.aspx
Espero que ajude.
qualquer duvida, retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/04/2012 7:38 pm