Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per inserimento dati da excel a word

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro per inserimento dati da excel a word

Postdi fabrytm » 13/07/13 17:05

Ciao a tutti,
aiutandomi in vari forum ho trovto una macro per inserire dei dati presenti su un foglio excel in un file word all'interno di moduli prestabiliti.
La macro viene lanciata da un file excel già aperto, richiama un file word prestabilito e riporta quello inserito nella cella G7 del excel nel modulo Mod1 di word.
E fino qui tutto ok. il problema sorge quando lancio per la seconda volta la macro, va in debug e non mi compila il modulo.
Sono costretto quindi ad uscire senza salvare sia da word che da excel e poi riaprire e rilanciare.
Cosa manca nel codice che posto di seguito, affinchè il debug non si ripresenti?
Grazie mille

Sub ApriWord()
Dim Nome As String
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "C:\Users\fabrytm\Documents\Prova\doc1.docx"
WordApp.Visible = True
Set WordApp = Nothing
Nome = Range("g7")
ActiveDocument.FormFields("Mod1").Result = Nome
End Sub
fabrytm
Newbie
 
Post: 1
Iscritto il: 13/07/13 16:51

Sponsor
 

Re: Macro per inserimento dati da excel a word

Postdi Anthony47 » 13/07/13 17:24

Ciao fabrytm, benvenuto nel forum.

Probabilmente il messaggio di errore e la relativa riga di codice ci avrebbe aiutato; alla cieca posso solo commentare che la tua macro non contiene nessuna informazione (1) per salvare il file ne' (2) per terminare l' applicazione Word, in modo da poterlo ricreare correttamente al successivo rilancio della macro.

Quindi:
Codice: Seleziona tutto
Sub ApriModificaChiudiWord()
Dim Nome As String
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open "C:\Users\fabrytm\Documents\Prova\doc1.docx"     'MODIFICATO
WordApp.Visible = True
'Set WordApp = Nothing   'NON QUI
Nome = Range("g7")
WordDoc .FormFields("Mod1").Result = Nome    'Nome chi lo compila??
wrdDoc.Close savechanges:=True     'SALVA
'completa e chiudi Word
set WordDoc = Nothing   
WordApp.Quit
Set WordApp = Nothing
End Sub

(non collaudato)

Fai sapere se lo spunto e' stato utile.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Macro per inserimento dati da excel a word":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti