| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding a reference programatically
I create a new workbook simply by copying a worksheet, i.e.
ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a reference programatically
Sub AddADO()
Dim R For Each R In ThisWorkbook.VBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next On Error GoTo NOTFOUND 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '---------------------------------------------------------------------------- ThisWorkbook.VBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: On Error GoTo 0 End Sub RBS "Fred" <leavemealone@home wrote in message ... I create a new workbook simply by copying a worksheet, i.e. ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a reference programatically
Seems to me you would only set a version if your code required that or a
newer to work, then test for a failure. -- Regards, Tom Ogilvy "RB Smissaert" wrote: Sub AddADO() Dim R For Each R In ThisWorkbook.VBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next On Error GoTo NOTFOUND 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '---------------------------------------------------------------------------- ThisWorkbook.VBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: On Error GoTo 0 End Sub RBS "Fred" <leavemealone@home wrote in message ... I create a new workbook simply by copying a worksheet, i.e. ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a reference programatically
Not sure what you are precisely saying.
Would you alter the posted code? RBS "Tom Ogilvy" wrote in message ... Seems to me you would only set a version if your code required that or a newer to work, then test for a failure. -- Regards, Tom Ogilvy "RB Smissaert" wrote: Sub AddADO() Dim R For Each R In ThisWorkbook.VBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next On Error GoTo NOTFOUND 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '---------------------------------------------------------------------------- ThisWorkbook.VBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: On Error GoTo 0 End Sub RBS "Fred" <leavemealone@home wrote in message ... I create a new workbook simply by copying a worksheet, i.e. ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a reference programatically
I was saying why not set both major and minor to zero unless your code
requires a certain version (or newer). -- Regards, Tom Ogilvy "RB Smissaert" wrote in message ... Not sure what you are precisely saying. Would you alter the posted code? RBS "Tom Ogilvy" wrote in message ... Seems to me you would only set a version if your code required that or a newer to work, then test for a failure. -- Regards, Tom Ogilvy "RB Smissaert" wrote: Sub AddADO() Dim R For Each R In ThisWorkbook.VBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next On Error GoTo NOTFOUND 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - ThisWorkbook.VBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: On Error GoTo 0 End Sub RBS "Fred" <leavemealone@home wrote in message ... I create a new workbook simply by copying a worksheet, i.e. ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding a reference programatically
Yes, could do that, but found that Major:=2 is always there.
RBS "Tom Ogilvy" wrote in message ... I was saying why not set both major and minor to zero unless your code requires a certain version (or newer). -- Regards, Tom Ogilvy "RB Smissaert" wrote in message ... Not sure what you are precisely saying. Would you alter the posted code? RBS "Tom Ogilvy" wrote in message ... Seems to me you would only set a version if your code required that or a newer to work, then test for a failure. -- Regards, Tom Ogilvy "RB Smissaert" wrote: Sub AddADO() Dim R For Each R In ThisWorkbook.VBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next On Error GoTo NOTFOUND 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - ThisWorkbook.VBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: On Error GoTo 0 End Sub RBS "Fred" <leavemealone@home wrote in message ... I create a new workbook simply by copying a worksheet, i.e. ActiveSheet.copy. The problen is that the sheet has subroutines that require the ADODB and so the new workbook needs to reference the Microsoft ActiveX Data Objects Library. I know I can add that reference to the new workbook using Tools:References from the main menu but how can I add that reference to the new workbook programmatically. Thanks for any help, Fred |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Adding VB code to worksheet programatically | Excel Programming | |||
| Adding a Control programatically | Excel Programming | |||
| default references or adding programatically | Excel Programming | |||
| Programatically adding worksheets to a spreadsheet | Excel Programming | |||
| Adding components to multipage programatically | Excel Programming | |||
Hybrid Mode
