Some sample data for other Posts and Threads:
http://www.eileenslounge.com/viewtopic.php?f=30&t=29652
Using this code:
Here some results. ( If anyone passing has other Excel versions and would like to pass on what the code above gives, then that would be nice, thanksCode:Sub Its() ' snb 2017 Dim It As Variant For Each It In ThisWorkbook.VBProject.References Dim strIts As String Let strIts = strIts & "Description:" & vbTab & It.Description & vbCr & "Name:" & vbTab & vbTab & It.Name & vbCr & "Buitin:" & vbTab & vbTab & It.BuiltIn & vbCr & "Minor:" & vbTab & vbTab & It.minor & vbCr & "Major:" & vbTab & vbTab & It.major & vbCr & "FullPath:" & vbTab & vbTab & It.fullpath & vbCr & "GUID:" & vbTab & vbTab & It.GUID & vbCr & "Type:" & vbTab & vbTab & It.Type & vbCr & "Isbroken:" & vbTab & vbTab & It.isbroken & vbCr & vbCr Next It Debug.Print strIts ' From VB Editor Ctrl+g to get Immediate Window from which info can be copied End Sub)
Excel 2007
Code:Description: Visual Basic For Applications Name: VBA Buitin: Wahr Minor: 0 Major: 4 FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL GUID: {000204EF-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Excel 12.0 Object Library Name: Excel Buitin: Wahr Minor: 6 Major: 1 FullPath: C:\Program Files\Microsoft Office\Office12\EXCEL.EXE GUID: {00020813-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: OLE Automation Name: stdole Buitin: Falsch Minor: 0 Major: 2 FullPath: C:\Windows\system32\stdole2.tlb GUID: {00020430-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Office 12.0 Object Library Name: Office Buitin: Falsch Minor: 4 Major: 2 FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL GUID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52} Type: 0 Isbroken: Falsch Description: Microsoft Word 12.0 Object Library Name: Word Buitin: Falsch Minor: 4 Major: 8 FullPath: C:\Program Files\Microsoft Office\Office12\MSWORD.OLB GUID: {00020905-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch
Excel 2003
Excel 2010Code:Description: Visual Basic For Applications Name: VBA Buitin: Wahr Minor: 0 Major: 4 FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL GUID: {000204EF-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Excel 11.0 Object Library Name: Excel Buitin: Wahr Minor: 5 Major: 1 FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE GUID: {00020813-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: OLE Automation Name: stdole Buitin: Falsch Minor: 0 Major: 2 FullPath: C:\Windows\system32\stdole2.tlb GUID: {00020430-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Office 11.0 Object Library Name: Office Buitin: Falsch Minor: 3 Major: 2 FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL GUID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52} Type: 0 Isbroken: Falsch Description: Microsoft Word 12.0 Object Library Name: Word Buitin: Falsch Minor: 4 Major: 8 FullPath: C:\Program Files\Microsoft Office\Office12\MSWORD.OLB GUID: {00020905-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch
Code:Description: Visual Basic For Applications Name: VBA Buitin: Wahr Minor: 1 Major: 4 FullPath: C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL GUID: {000204EF-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Excel 14.0 Object Library Name: Excel Buitin: Wahr Minor: 7 Major: 1 FullPath: C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE GUID: {00020813-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: OLE Automation Name: stdole Buitin: Falsch Minor: 0 Major: 2 FullPath: C:\Windows\SysWOW64\stdole2.tlb GUID: {00020430-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch Description: Microsoft Office 14.0 Object Library Name: Office Buitin: Falsch Minor: 5 Major: 2 FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL GUID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52} Type: 0 Isbroken: Falsch Description: Microsoft Word 14.0 Object Library Name: Word Buitin: Falsch Minor: 5 Major: 8 FullPath: C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLB GUID: {00020905-0000-0000-C000-000000000046} Type: 0 Isbroken: Falsch




)
Reply With Quote
Bookmarks