Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Attivare Riferimento con codice VBA

148 views
Skip to first unread message

Drago

unread,
Dec 16, 2009, 2:02:56 PM12/16/09
to
Dovrei tramite codice Attivare un riferimento a "Microsoft Word 12.0 Object
library". Come posso fare?
Grazie

r

unread,
Dec 16, 2009, 4:21:44 PM12/16/09
to

puoi usare createobject ... oppure aggiungere un riferimento alla
libreria
spiega meglio ... cosa vuoi fare ... e perchè ...
saluti
r

Drago

unread,
Dec 16, 2009, 5:38:14 PM12/16/09
to
Il riferimento preciso che dovrei attivare � "Microsoft VB for application
Extensibility 5.3" che mi serve per creare un modulo in vba nel quale vado a
leggere una macro scritta il .txt e la eseguo.
Questo file contenente questa macro deve essere passato a diversi utenti e
quindi questo crea il problema dell'attivazione del riferimento sopra.
Allora mi serve attivarlo via codice in modo tale da bypassare il problema
senza farlo manualmente su tutti i pc.
Potresti farmi un esempio della riga di codice da inserire?
Grazie

"r" <robb...@gmail.com> ha scritto nel messaggio
news:34c9d049-0691-4e93...@x15g2000vbr.googlegroups.com...

> spiega meglio ... cosa vuoi fare ... e perch� ...
> saluti
> r

r

unread,
Dec 16, 2009, 6:03:51 PM12/16/09
to
On 16 Dic, 23:38, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
> Il riferimento preciso che dovrei attivare è "Microsoft VB for application

> Extensibility 5.3" che mi serve per creare un modulo in vba nel quale vado a
> leggere una macro scritta il .txt e la eseguo.
> Questo file contenente questa macro deve essere passato a diversi utenti e
> quindi questo crea il problema dell'attivazione del riferimento sopra.
> Allora mi serve attivarlo via codice in modo tale da bypassare il problema
> senza farlo manualmente su tutti i pc.
> Potresti farmi un esempio della riga di codice da inserire?
> Grazie
>
> "r" <robb....@gmail.com> ha scritto nel messaggionews:34c9d049-0691-4e93...@x15g2000vbr.googlegroups.com...

>
>
>
> > On 16 Dic, 20:02, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
> >> Dovrei tramite codice Attivare un riferimento a "Microsoft Word 12.0
> >> Object
> >> library". Come posso fare?
> >> Grazie
>
> > puoi usare createobject ... oppure aggiungere un riferimento alla
> > libreria
> > spiega meglio ... cosa vuoi fare ... e perchè ...
> > saluti
> > r- Nascondi testo citato
>
> - Mostra testo citato -

Sub AggiungiRifVBIDE()
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid _
"{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub

saluti
r

Drago

unread,
Dec 16, 2009, 6:21:35 PM12/16/09
to
Perfetto, domani prover� se funziona. ma un'altra curiosit� dove posso
trovare la corrispondenza tra le varie voci dei Riferimenti e i numeri tra
parentesi graffa?
Grazie

"r" <robb...@gmail.com> ha scritto nel messaggio

news:34bd75d7-2acd-4ea9...@e27g2000yqd.googlegroups.com...


> On 16 Dic, 23:38, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:

>> Il riferimento preciso che dovrei attivare � "Microsoft VB for

>> application
>> Extensibility 5.3" che mi serve per creare un modulo in vba nel quale
>> vado a
>> leggere una macro scritta il .txt e la eseguo.
>> Questo file contenente questa macro deve essere passato a diversi utenti
>> e
>> quindi questo crea il problema dell'attivazione del riferimento sopra.
>> Allora mi serve attivarlo via codice in modo tale da bypassare il
>> problema
>> senza farlo manualmente su tutti i pc.
>> Potresti farmi un esempio della riga di codice da inserire?
>> Grazie
>>
>> "r" <robb....@gmail.com> ha scritto nel
>> messaggionews:34c9d049-0691-4e93...@x15g2000vbr.googlegroups.com...
>>
>>
>>
>> > On 16 Dic, 20:02, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
>> >> Dovrei tramite codice Attivare un riferimento a "Microsoft Word 12.0
>> >> Object
>> >> library". Come posso fare?
>> >> Grazie
>>
>> > puoi usare createobject ... oppure aggiungere un riferimento alla
>> > libreria

>> > spiega meglio ... cosa vuoi fare ... e perch� ...

r

unread,
Dec 16, 2009, 6:32:48 PM12/16/09
to
On 17 Dic, 00:21, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
> Perfetto, domani proverò se funziona. ma un'altra curiosità dove posso

> trovare la corrispondenza tra le varie voci dei Riferimenti e i numeri tra
> parentesi graffa?
> Grazie
>
> "r" <robb....@gmail.com> ha scritto nel messaggionews:34bd75d7-2acd-4ea9...@e27g2000yqd.googlegroups.com...

>
>
>
> > On 16 Dic, 23:38, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
> >> Il riferimento preciso che dovrei attivare è "Microsoft VB for

> >> application
> >> Extensibility 5.3" che mi serve per creare un modulo in vba nel quale
> >> vado a
> >> leggere una macro scritta il .txt e la eseguo.
> >> Questo file contenente questa macro deve essere passato a diversi utenti
> >> e
> >> quindi questo crea il problema dell'attivazione del riferimento sopra.
> >> Allora mi serve attivarlo via codice in modo tale da bypassare il
> >> problema
> >> senza farlo manualmente su tutti i pc.
> >> Potresti farmi un esempio della riga di codice da inserire?
> >> Grazie
>
> >> "r" <robb....@gmail.com> ha scritto nel
> >> messaggionews:34c9d049-0691-4e93...@x15g2000vbr.googlegroups.com...
>
> >> > On 16 Dic, 20:02, "Drago" <V_IsAaMb...@UlSiCbOeLrEo.it> wrote:
> >> >> Dovrei tramite codice Attivare un riferimento a "Microsoft Word 12.0
> >> >> Object
> >> >> library". Come posso fare?
> >> >> Grazie
>
> >> > puoi usare createobject ... oppure aggiungere un riferimento alla
> >> > libreria
> >> > spiega meglio ... cosa vuoi fare ... e perchè ...

> >> > saluti
> >> > r- Nascondi testo citato
>
> >> - Mostra testo citato -
>
> > Sub AggiungiRifVBIDE()
> > On Error Resume Next
> > ThisWorkbook.VBProject.References.AddFromGuid _
> >                "{0002E157-0000-0000-C000-000000000046}", 5, 3
> > End Sub
>
> > saluti
> > r- Nascondi testo citato
>
> - Mostra testo citato -

Sub Test()
'esegue un ciclo sui riferimenti presenti
'nel progetto attivo scrivendo nella finestra
'immediata il Nome del riferimento, e gli
'argomenti necessari per aggiungere un riferimento
'tramite il metodo AddFromGuid
Dim oVBP As VBProject
Dim oRef As Reference
Set oVBP = Application.VBE.ActiveVBProject
For Each oRef In oVBP.References
Debug.Print oRef.Name
Debug.Print oRef.GUID
Debug.Print oRef.Major
Debug.Print oRef.Minor
Next
End Sub

un bel po' di codice riguardo queste cose lo trovi scaricando il file
in questo mio articolo:
http://excelvba.altervista.org/blog/index.php/Excel-VBA/Controllo-TreeView-VBIDE-Guida-in-memoria.html

mi ero ripromesso di metterci mano per risolvere un paio di problemi
ma non ho più avuto tempo ... quindi salvalo ... e se vuoi lavorarci
verifica prima che non ci siano cartelle excel aperte e non salvate
(il classico Cartel1 senza salvarlo) altrimenti va in errore ... la
routine qui sopra è nell'help dell'applicazione ...
saluti
r

r

unread,
Dec 16, 2009, 6:36:35 PM12/16/09
to
... routine qui sopra è nell'help dell'applicazione ...
diciamo dell'esempio :-)
saluti
r

Mauro Gamberini

unread,
Dec 17, 2009, 5:02:25 AM12/17/09
to
> Il riferimento preciso che dovrei attivare � "Microsoft VB for application
> Extensibility 5.3" che mi serve per creare un modulo in vba nel quale vado
> a leggere una macro scritta il .txt e la eseguo.
> Questo file contenente questa macro deve essere passato a diversi utenti e
> quindi questo crea il problema dell'attivazione del riferimento sopra.

Mi sfugge sempre il perch� di tutto ci�.
Distribuisci anche il file di testo?
Mah...

--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads

Drago

unread,
Dec 17, 2009, 6:55:14 AM12/17/09
to
Lascio il file di testo in sul server e pesco il codice solo se mi serve.
Questa era l'idea, sicuramente ci saranno altre strade per fare tutto cio ma
ct� cercando di fare in questo modo
Diciamo che funge anche da esperimento
Grazie a tutti e Buone Feste nel caso in cui non dovessimo + sentirci prima;
comunque vi leggo sempre e siete grandi


"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel
messaggio news:#cQLPAwf...@TK2MSFTNGP05.phx.gbl...

0 new messages