You are here:---Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word
Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word2018-05-11T17:45:18+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Trasferire dati da foglio excel a documento word Rispondi a: [RISOLTO] Trasferire dati da foglio excel a documento word

sidsid
Moderatore
    Post totali: 718

    Assegnamo un oggetto al foglio per un lavoro più pulito, e assegnamo un valore all’ultima riga utile di colonna B

    Sub CreaWord()
    Dim ws1 As Worksheet
    Dim doc As Object
    Dim nRiga As Long, xRiga As Long
    Dim stampa As String
    
    Set ws1 = Sheets("Foglio1") ' nome tuo foglio
    
    xRiga = IIf(ws1.Range("B2") = "", 1, ws1.Range("B" & Rows.Count).End(xlUp).Row)
    If xRiga > 1 Then
        Set doc = CreateObject("Word.Application")
        With doc
            .Visible = True
            Call .Documents.Add("Normal", False, 0)
            For nRiga = 2 To xRiga
                stampa = stampa & Cells(nRiga, 2) & vbLf
            Next
            With .Selection
                .TypeText stampa
                .TypeParagraph
            End With
        End With
        Set doc = Nothing
    End If
    Set ws1 = Nothing
    End Sub
    • Questa risposta è stata modificata 1 anno, 4 mesi fa da sid sid.

    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