reference til Microsoft ActiveX Data Objects 2.0 Library

Åbn din VBA-editor, og i Tools > References sætter du dine referencer.

hvordan gør man det via en reference i en macro?? jeg skal oprette 25+ dokumenter, man skal kunne opdatere, ved at opdatere i en macro, og så skal alle filerne kunne laves.. problemet er, at filerne så ikke har references, som filen der opretter dem..
da der er 25 dokumenter, og de en gang imellem skal opdateres, er det altså ikke denne løsning, jeg søger..

/1..

altså som sagt noget i stil med

thisworkbook.vbproject.references ("bla bla bla")..

Sub Microsoft_ActiveX_Data_Objects_20_Library()
On Error Resume Next
Drev = Left(CurDir(), 1)
  strReference = Drev & ":\Programmer\Fælles filer\System\ado\msado20.tlb"
  ActiveWorkbook.VBProject.References.AddFromFile strReference
End Sub

jeg kikker på det i morgen, når jeg kommer på arbejde..

/1.

den skal måske snarere se sådan ud.

Sub Microsoft_ActiveX_Data_Objects_20_Library()
On Error Resume Next
  strReference = Environ("CommonProgramFiles") & "\System\ado\msado20.tlb"
  ActiveWorkbook.VBProject.References.AddFromFile strReference
End Sub

det var jo lige det, jeg skulle bruge endnu en gang mange tak!!!

du får et svar. ;-))