Opret VBA reference ved runtime

Du kan enten tilføje en fil- eller en Guid-reference.

Guid-referencen er som regel det mest anvendelige, da man ofte ikke kender filens placering på den enkelte maskine.

Syntaksen er således:

Application.References.AddFromGuid "{00020813-0000-0000-C000-000000000046}",0,5

Dette tilføjer Excel 11.0 som reference.
Og hvor fik jeg så lige den kode fra?

Jo, i debug-viinduet skrev jeg:
?Application.References("Excel").Guid

(på det tidspunkt havde jeg selvfølgelig ssat referencen manuelt forinden)

Tak for svaret!

Der er blot et enkelt problem. Når jeg afvikler i debug-vinduet får jeg koden:
{00062FFF-0000-0000-C000-000000000046}

- den giver en fejl når jeg indsætter den i den kode du nævnte først:
Application.References.AddFromGuid {00062FFF-0000-0000-C000-000000000046}

Hvor får du ",0,5" fra? Er det parametre i kommandoen AddFromGuid? Eller ser excelreferencen bare således ud?

Hilsen
Nikolaj

0 og 5 har jeg ingen ide om hvad bruges til. Faktisk kan jeg se, at de bør være 1 og 5 i stedet (hvis du spørger på Application.References("Excel").major)

Disse 2 værdier er (så vidt jeg har erfaret) de samme for alle referencer.

Har du husket at slette referencen inden du forsøger at sætte den igen? Ellers får du en fejl.

Jep. Så var den der!

Sjovt nok kan jeg godt afvikle den ved at kalde funktionen fra en makro, men kalder jeg funktionen ved en OnClick-hændelse på en knap får jeg fejlmeddelelsen:

"Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic"...

Er der andre funktioner, som ikke virker, når Excel-referencen magler? Det skaber ofte syntaksfejl rundt omkring i koden, hvorfor Access kan have svært ved at afvikle helt almindelige kommandoer. Hvorfor det lige virker vha en makro, aner jeg ikke :o(

Nej, alt andet kører gnidningsfrit (?)

Jeg har lidt på fornemmelsen at spørgsmålet skal i UFO-kassen :-)

ja, du har nok ret ;o)

Af og til må man bare acceptere, at vi mennesker simpelthen er for små og ubetydelige til at kunne rumme og forså Microsofts verden!