This project is read-only.
You need following component:

2007 Microsoft Office System Update: Redistributable Primary Interop Assemblies

http://www.microsoft.com/downloads/details.aspx?FamilyID=59daebaa-bed4-4282-a28c-b864d8bfa513&displaylang=en

Build references.txt file

include your one of vba code and run:

' Save references for build
Public Function SaveReferences()
Dim strFile As String
Dim intref As Integer
Dim s As String
Dim nFileNum As Integer

strFile = "c:\references.txt"
nFileNum = FreeFile
Open strFile For Binary Access Write As nFileNum
Debug.Print Application.References.Count
If Application.References.Count <> 0 Then
For intref = 0 To Application.References.Count - 1
s = Application.References(intref + 1).Name & "," & _
Application.References(intref + 1).Guid & "," & _
Application.References(intref + 1).Major & "," & _
Application.References(intref + 1).Minor & "," & _
Application.References(intref + 1).Kind & Chr(13) & Chr(10)
Put #nFileNum, , s
Next

End If

Close #nFileNum

End Function

Example result:
VBA,{000204EF-0000-0000-C000-000000000046},4,0,0
Access,{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07},9,0,0
DAO,{00025E01-0000-0000-C000-000000000046},5,0,0
ADOR,{00000300-0000-0010-8000-00AA006D2EA4},6,0,0
ADODB,{2A75196C-D9EB-4129-B803-931327F72D5C},2,8,0
stdole,{00020430-0000-0000-C000-000000000046},2,0,0
MSComctlLib,{831FDD16-0C5C-11D2-A9FC-0000F8754DA1},2,0,0
Outlook,{00062FFF-0000-0000-C000-000000000046},9,3,0
Office,{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52},2,4,0

Last edited Dec 10, 2009 at 1:47 PM by Safi, version 3

Comments

No comments yet.