Creare file word con macro

Hai un problema con Excel?

Nuova discussione

Creare file word con macro
di Julio data: 20/02/2013 22:44:51
Ciao, ecco la domanda: vorrei trascrivere il foglio in Excel che ottengo in un documento word, magari con carta intestata.
La mia situazione e' quella di aver realizzato un semplice configuratore che nel foglio finale riporta un elenco di articoli, mi piacerebbe associare una macro ad un tasto "stampa" grazie al quale si ottiene un documento word con carta intestata e con incollato l'elenco precedentemente ottenuto.
Grazie

di HarryBosch data: 21/02/2013 19:33:21
Ciao Julio
potresti intestare adeguatamente anche un foglio Excel, anche se giustamente Word sarebbe più adatto allo scopo.
Ti mostro qua un piccolo esempio che anch'io ho preso a mio tempo dal web, e che andrà aggiustato in base alle tue esigenze.

Nel tuo file word devi innanzitutto creare un segnalibro, in modo da posizionare la tabella dei dati a partire da quel punto.
Quindi modifica la routine sotto con il nome del segnalibro, che in questo caso ho chiamato "destinazione".

Sub Copia_tabella_in_Word()
    Dim wrdApp As Word.Application, wrdDoc As Word.Document
    Dim tabella As Range
    Dim percorso As String
    Dim Rng As Object
    
    'percorso e nome del file Word
    percorso = "C:UsersDocumentsdati.docx"
    
    'dati da copiare
    Set tabella = [a1].CurrentRegion
    tabella.Copy

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(percorso)
    
    'imposto il riferimento al segnalibro
    Set Rng = wrdDoc.Bookmarks("destinazione").Range

    tabella.Copy
    Rng.PasteSpecial Link:=False, DataType:=wdPasteText, _
                     Placement:=wdInLine, DisplayAsIcon:=False
    
    'salvo e chiudo il file Word
    wrdApp.ActiveDocument.Save
    wrdApp.Quit
End Sub

di HarryBosch data: 21/02/2013 19:34:44
Ti ho inserito i commenti in modo da facilitare il compito ^_^
Ovviamente va aggiustato anche il percorso e il nome del file Word dove riportare la tabella dei dati.

Ci sono anche altri sistemi per importare dati in Word, dipende da cosa vuoi realizzare esattamente.

Vuoi Approfondire?