Sostituire modulo in altro file

Hai un problema con Excel?

Nuova discussione

Sostituire modulo in altro file
di Fabio (utente non iscritto) data: 08/02/2017 15:25:12
Buongiorno, ho realizzato un file con delle macro che ho distribuito a diversi colleghi.
Ora avrei la necessità di modificare una macro avendo rilevato un errore.
Vorrei quindi relizzare una macro che vada a sostituirmi il modulo errato nel file originale.
Ho fatto diverse ricerche e la soluzione, per me, più semplice che ho trovato è quella che allego.
Purtoppo alla seconda riga va in errore ("Metodo VBProjet dell'oggetto......non riuscito").
Quale potrebbe essere l'errore?
O è un problema di versioni?
Grazie Mille
Fabio

Sub Correggi()
    FileExc = Worksheets("Foglio1").Range("A1").Value
    ThisWorkbook.VBProject.VBComponents("modulo1").Export ("D:modulocorretto.bas")
    Workbooks.Open Filename:=FileExc
    For I = ActiveWorkbook.VBProject.VBComponents("Modulo2").CodeModule.CountOfLines To 1 Step -1
    ActiveWorkbook.VBProject.VBComponents("Modulo2").CodeModule.DeleteLines I
    Next I
    Application.VBE.ActiveVBProject.VBComponents.Import ("D:modulocorretto.bas")
    ActiveWorkbook.Close
End Sub

di alfrimpa data: 08/02/2017 15:46:45
Ciao Fabio

la prima cosa che mi viene in mente è questa: hai attivato la libreria "Microsoft Visual Basic For Applications Extensibility 5.3"?

Comunque ti do un link dove l'argomento della programmazione dell'editor di VBA è ampiamente trattato.

h t t p://www.cpearson.com/excel/vbe.aspx

Alfredo
di Fabio (utente non iscritto) data: 08/02/2017 16:10:58
Grazie per la tempestiva risposta.
Ho attivato la libreria ma mi da ancora lo stesso errore.
Ho aperto il link che mi hai suggerito ed ho visto che parla proprio dell'argomento in oggetto.
Purtroppo, sia perchè è in inglese e per le mie scarse conoscenza di vba, non riesco a risolvere il problema.
Fabio
di alfrimpa data: 08/02/2017 16:13:15
Purtroppo a distanza è difficile risolvere questo tipo di problemi.

L'unica alternativa che hai è modificare le macro pc per pc.

Alfredo
di Fabio (utente non iscritto) data: 08/02/2017 16:25:27
Il problema è sono sono sparsi per l'Italia
Grazie per l'iteressamento.
Fabio
di alfrimpa data: 08/02/2017 16:42:59
E allora dirama una circolare di istruzioni per la modifica

Alfredo
di Fabio (utente non iscritto) data: 08/02/2017 16:49:02
puoi immaginare cosa riuscirebbero a combinare????
Se non trovo altre soluzioni devo collegarmi con ognuno tramite teamwiever per la modifica
Fabio

Vuoi Approfondire?