permanently add reference to ADO library

[Loane Sharp]

Hi there
I find it a bit irritating that, every time I create a new procedure in a
new workbook, I need to add a reference to the ADO object library. Is there
any way that I can have this reference added permanently?
Best regards
Loane

 

[DM Unseen]

This is not possible, because references are handled per workbook.

I would suggest the following workaround:
Create a new workbook, add all your references, and save as a template
to your template folder. Now create a new workbook based on your new
template

Dm Unseen

 

[keepITcool]

Create an addin that does it for you...
following will setup an application event monitor
and add the reference when a NewWorkbook event is detected.


'<<code for THISWORKBOOK module>>
Option Explicit

Dim WithEvents xlApp As Application

Private Sub Workbook_Open()
Set xlApp = Application
End Sub

Private Sub xlApp_NewWorkbook(ByVal wb As Workbook)
Call AddAdoReference(wb)
End Sub

Sub AddAdoReference(ByVal wb As Workbook)
wb.VBProject.References.AddFromFile _
"C:\Program Files\Common Files\System\ado\msado15.dll"
End Sub



--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Loane Sharp wrote :