/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
ActiveX virker ikke i Office VB
Fra : JJC


Dato : 15-03-02 14:58

Jeg forsøger i en Word VB macro at få vist en CommonDialog. Dette virker på
min udvikling PC, men ikke på andre hvor jeg får fejlen:
Run-time error '429': ActiveX component can't create object
Fejlen optræder f.eks. ved denne lille test macro:
Sub test()
Dim ttt As CommonDialog
Set ttt = CreateObject("MSComDlg.CommonDialog")
ttt.ShowOpen
End Sub

Jeg har registreret comdlg32.ocx og jeg kan se MSComDlg.CommonDialog i
"Object Browseren" i VB editoren, både på de maskiner hvor koden virker og
på de maskiner hvor den fejler.

Er der nogen der kan give mig en forklaring på dette problem.



 
 
Mikkel Bundgaard (15-03-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 15-03-02 20:44

"JJC" <jab@cci.dk> wrote in message news:3c91fe3d$0$92564$edfadb0f@dspool01.news.tele.dk...
> Jeg forsøger i en Word VB macro at få vist en CommonDialog.
> Dette virker på min udvikling PC, men ikke på andre hvor jeg
> får fejlen:
> Run-time error '429': ActiveX component can't create object
> Fejlen optræder f.eks. ved denne lille test macro:
> Sub test()
> Dim ttt As CommonDialog
> Set ttt = CreateObject("MSComDlg.CommonDialog")
> ttt.ShowOpen
> End Sub
>
> Jeg har registreret comdlg32.ocx og jeg kan se
> MSComDlg.CommonDialog i "Object Browseren" i VB
> editoren, både på de maskiner hvor koden virker og
> på de maskiner hvor den fejler.
>
> Er der nogen der kan give mig en forklaring på dette problem.
Hej JJC

Den "normale" fremgangsmetode i Word VBA er at bruge
følgende kode:

Sub test()
Word.Dialogs(wdDialogFileOpen).show
End Sub

PS. Der findes blandt andet følgende konstanter:
wdDialogFileNew, wdDialogFilePrint, wdDialogFileSaveAs.
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste