Avatar billede akyhne Nybegynder
20. februar 2008 - 10:32 Der er 11 kommentarer og
1 løsning

Check Object Library

kan man via VBA checke om en pågældende Excel installation har aktiveret eksempelvis Office 11 Object Library, og ellers tilføje denne, hvis den ikke er?
Avatar billede akyhne Nybegynder
20. februar 2008 - 15:26 #1
Jeg fandt denne, så det kigger jeg på: http://www.eksperten.dk/spm/511241
Avatar billede akyhne Nybegynder
21. februar 2008 - 09:16 #2
Det kan så tilsyneladende ikke lade sig gøre, uden først at give sikkerheden for makroer adgang til VBA projektet.

Er der ikke andre metoder? Det skulle jo gerne kunne afvikles på alle computere, uden først at skulle sætte sikkerhedsniveauet.
Avatar billede akyhne Nybegynder
25. februar 2008 - 12:00 #3
Ingen hjælp?
Avatar billede bak Forsker
07. marts 2008 - 08:04 #4
Prøv lige at fortælle lidt mere om hvad det skal bruges til. Måske er der måder at omgå forhindringen...
Avatar billede akyhne Nybegynder
07. marts 2008 - 16:09 #5
Jeg har et Excelark der henter data fra nogle formfelter i Word. Derfor bruger jeg Word Object Library (eller Office, det kan jeg ikke lige huske).

Det virker sådan set fint nok. Tilsyneladende forstår andre computere hvor arket bruges at Object Library skal tilføjes. Jeg har brugt Office 2003 til at lave arket. Det er dermed Office 11. Hvis kunden/brugeren der skal bruge arket har en anden Office, går det vel galt.
I alle tilfælde er jeg nødt til at checke brugerens computer. Det kræver dog adgang til VBA fra makrosikkerheden. Dette er ikke hensigtsmæssigt.
Avatar billede bak Forsker
07. marts 2008 - 16:53 #6
Kan jeg godt
Det burde heller ikke være nødvendigt.
Tag et kig på createobject / getobject
ex.
Dim WordApp as Object
Set WordApp = CreateObject("Word.Application")
WordApp.Open "c:\vb4\MYTEST.DOC"

eller
Dim WordApp as object
Set WordApp = Getobject("c:\vb4\MYTEST.DOC")

På begge måder undgår du at skulle tage stilling til hvilken version af et program du  er oppe mod.
Avatar billede akyhne Nybegynder
07. marts 2008 - 17:03 #7
Det er også den øverste jeg bruger i dag.
Avatar billede akyhne Nybegynder
07. marts 2008 - 17:05 #8
Nu har jeg desvæære ikke lige min bærbare med hjem fra arbejde, og det er noget tid siden jeg lavede makroen, men jeg er ret sikker på den ikke kører uden manuelt at tilføje Word eller Office 11 Object Library.
Avatar billede bak Forsker
07. marts 2008 - 17:18 #9
Jeg har lige testet det og hos mig er versionen underordnet.

Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True          'ellers kan man ikke se word
WordApp.Documents.Open "c:\mytest.doc"
Avatar billede akyhne Nybegynder
07. marts 2008 - 17:26 #10
Ok. Jeg har desværre ikke umiddelbart mulighed for i øjeblikket at teste det, men smid et svar. Så giver jeg point hvis du får ret :-)
Avatar billede bak Forsker
07. marts 2008 - 17:32 #11
jeg får ret :-)
men du må vente med at lukke til du er overbevist...

bruger det forøvrigt selv mod Outlook da vi kører xl2003 og Outlook2007
Avatar billede akyhne Nybegynder
18. marts 2008 - 17:21 #12
bak: Smid et svar. Jeg får ikke mulighed/tid til at teste foreløbig.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester