You are here:---Rispondi a: Caricamento dll in base alla versione
Rispondi a: Caricamento dll in base alla versione2017-12-29T18:01:02+02:00

Home Forum Domande su Excel VBA e MACRO Caricamento dll in base alla versione Rispondi a: Caricamento dll in base alla versione

Alex-55Alex-55
Partecipante
    Post totali: 27

    Ciao,

    sbirciando in rete ho trovato questo:

    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       ‘principale
    Debug.Print oRef.Minor      ‘secondario
    Next
    End Sub

    ———————————————–

    Sub AggiungiRifVBIDE()
    ‘metodo AddFromGuid
    ‘Aggiunge un riferimento all’insieme References tramite l’identificatore univoco globale (GUID) del riferimento.
    ‘sintassi:    oggetto.AddFromGuid (guid, principale, secondario) As Reference
    ‘La sintassi del metodo AddFromGuid è composta dalle seguenti parti:
    ‘Parte                 Descrizione
    ‘oggetto             Obbligatoria. Espressione oggetto che definisce un oggetto dell’elenco “Si applica a”.
    ‘guid                  Obbligatoria. Espressione stringa che rappresenta l’identificatore univoco globale del riferimento.
    ‘principale       Obbligatoria. Valore Long che specifica il numero della versione principale del riferimento.
    ‘secondario     Obbligatoria. Valore Long che specifica il numero della versione secondaria del riferimento.
    ‘Osservazioni
    ‘Il metodo AddFromGuid esegue la ricerca del riferimento che si desidera aggiungere nel registro di configurazione.
    ‘Il GUID può essere una libreria dei tipi, un controllo, un identificatore di classe e così via.

    ‘Questo esempio aggiunge ai riferimenti il file AccessibilityCpl.DLL
    ‘(nome che compare nei riferimenti: AccessibilityCplAdmin 1.0 Type Library)
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromGuid “{714DD4F6-7676-4BDE-925A-C2FEC2073F36}”, 1, 0
    End Sub

    Questi esempi sono abbastanza eloquenti ma non so come posso dargli il percorso in base alla versione di Excel.

    Forse il metodo AddFromGiud non è il modo giusto di procedere.

    Qualcuno sa che dovrei fare?

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi