Notifications
Clear all

Adicionar Referência

3 Posts
2 Usuários
0 Reactions
1,413 Visualizações
selmo
(@selmo)
Posts: 236
Estimable Member
Topic starter
 

Olá, boa tarde pessoal.
Então, como alguns que trabalham com o controle ListView, já devem ter se deparado com um problema comum, a falta de referencia ou ausencia da referencia ao listview. Em alguns casos é só habilitar, em outros instalar. Em todo caso estava procurando na web como adicionar referencia Microsoft Windows Common Controls 6.0 (SP6) via VBA, tentando evitar assim o incomodo de alguns usuarios quando utilizar. A versão que uso é a 2007 e a 2010, já encontrei alguns exemplos, mas até agora ainda não entendi completamente o funcionamento, alguem se habilita?

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 27/11/2014 12:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Selmo, de uma olhada nos tópicos abaixo referente a Adicionar Bibliotecas, só prrecisa verfificar quanto à compatibilidade das versões que citou :
Abaixo alguns exemplos para verificar se determinada referencia está instalada, e se não tiver instala:
Instalar Biblioteca via VBA
http://br.groups.yahoo.com/group/ExcelBr/message/24229

Private Sub Workbook_Open()
Dim bRef As Boolean
Dim i As Integer, iNref As Integer
bRef = False
iNref = Application.VBE.ActiveVBProject.References.Count
For i = 1 To iNref
If Application.VBE.VBProjects("VBAProject").References.Item(i)
Description = "Microsoft Windows Common Controls-2 6.0 (SP3)" Then
bRef = True
End If
Next
If bRef = False Then
Application.VBE.ActiveVBProject.References.AddFromFile ThisWorkbook.Path
& "MSCOMCT2.OCX"
End If
'esta biblioteca é muito boa. Contém um controle Calendário
'bastante flexível, inclusive de horas
End Sub

Add References with VBA
http://www.automationinformation.com/Pr ... es_add.htm

Adaptação automática de Referências
Calendário de Eventos: Adaptação automática de Referências
http://www.expertaccess.com.br/forumnew ... ?TID=15069

Adicionando referências dinamicamente no VBA
http://www.tomasvasquez.com.br/forum/vi ... =20&t=1367
http://www.tomasvasquez.com.br/artigos/ ... rencia.htm

How to add a reference programmatically vba-Excel
http://stackoverflow.com/questions/9879 ... -vba-excel

Como verificar e remover referências do projecto incorrecto no Editor do Visual Basic no Word - Pode ser adaptada para excel
http://support.microsoft.com/kb/308340/pt

Se pequisar no google encontrará uma infinidade de links sobre o assunto.

Espero que ajude.
[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/11/2014 5:57 am
selmo
(@selmo)
Posts: 236
Estimable Member
Topic starter
 

Mauro, a rotina funciona perfeitamente, muito obrigado pela solução. Apenas alterei o local de busca pelo arquivo MSCONCTL.OCX, já que eu o tenho na pasta Systen32, apenas para complementar a rotina de forma que ele verificasse se tal arquivo existe, e se não tiver, avisa sobre a falta do arquivo. Existe uma rotina ou API que verifique se tal arquivo existe em uma pasta, antes de adiciona-lo?

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 02/12/2014 9:28 am