MyTetra Share
Делитесь знаниями!
Outlook References
16.03.2019
23:43
Текстовые метки: References, VBA
Раздел: !Закладки - VBA - VBA управление кодами

Sub ReferenceAdd()

'VBA

'C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL

'Excel

'C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.EXE

'stdole

'C:\Windows\SysWOW64\stdole2.tlb

'Office

'C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL

'Scripting

'C:\Windows\SysWOW64\scrrun.dll

'Word

'C:\Program Files (x86)\Microsoft Office\Office15\MSWORD.OLB

'Access

'C:\Program Files (x86)\Microsoft Office\Office15\MSACC.OLB

'stdole

'C:\Windows\SysWOW64\stdole2.tlb

'DAO

'C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\ACEDAO.DLL

'Office

'C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL'

'On Error Resume Next

stAddFromFile = "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL"

Application.References.AddFromFile stAddFromFile


stAddFromFile = "C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.EXE"

Application.References.AddFromFile stAddFromFile


End Sub

Sub ReferenceMISSING()

Dim iReference As Object, iReferences As Object 'или Variant

Set iReferences = Application.References '.References

For Each iReference In iReferences

If (iReference.IsBroken) Then _

iReferences.Remove Reference:=iReference

' Debug.Print iReference.Name

' Debug.Print iReference.FullPath

Next

End Sub


'Sub Remove_MISSING()

' Dim oReferences As Object, oRef As Object

' Set oReferences = ThisWorkbook.VBProject.References

' For Each oRef In oReferences

' If (oRef.IsBroken) Then oReferences.Remove Reference:=oRef

' Next

'End Sub



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования