Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 15

Esportare dati da excel a word

  1. #1
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    Salve forum, ho bisogno di un aiuto per risolvere un problemino.... e vorrei essere "inizializzato" per vedere se riesco a capirci qualcosa!! :-)
    Dunque, ho l'esigenza di esportare alcuni dati di excel in un doc word tramite una macro che parte dal foglio excel.
    Diciamo che devo esportare il dato contenuto nella cella A1 in un punto del documento word che fisso con un bookmark (si pu usare altro per fissare il p.to di inserimento?).
    N.B. Non voglio ulilizzare la funzione "Stampa Unione".
    Qual' il codice che permette di compiere l'operazione?
    Grazie in anticipo per l'aiuto! :-)
    A presto

  2. #2
    L'avatar di dragone bianco
    dragone bianco non  in linea Certosino
    Per cosa ti serve, redigere un documento??

    hai alcune strade per questo, creare un file RTF (facilmente ricreabile da codice con excel, eventualmente ho fatto un modulo di classe per questa esigenza facilmente reperibile sul forum) o comandare word per scrivere il documento
    Ma non la vedo cos facile

    CIao
    ℹ️ Leggi di pi su dragone bianco ...

  3. #3
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    S!
    Per farti capire... ho un foglio excel dove vengono fatti dei calcoli e alcuni risultati vanno trasferiti su un documento word gi compilato (praticamente un master) in punti precisi che mi sembra aver capito, possano essere fissati con i bookmark.
    Ma se me la metti gi dura cos, abbandono subito l'idea... ihihihh!!
    Anche perch sono sincero, non s da dove iniziare. Ho scaricato il tuo modulo rtf maaaa... per me tabula rasa... :-)
    Grazie comunque.

  4. #4
    L'avatar di dragone bianco
    dragone bianco non  in linea Certosino
    il modulo RTF
    in pratica non fa altro che darti la possibilit da codice di crearti l'intero documento semplificandoti molte configurazioni

    essendo fatto in Codice puoi passargli delle variabili di testo o altro, rendendo il foglio scritto dinamico

    se non mi ricordo male c' un esempio

    Per quanto riguarda word e i Bookmark da usare via codice non sono pratico, anzi mi sono rifiutato di usare il VBA di WORD.

    Ciao
    ℹ️ Leggi di pi su dragone bianco ...

  5. #5
    L'avatar di Elimar
    Elimar non  in linea Scribacchino
    potresti provare ad usare questo codice

    Sub esporta()
    Dim Wrd As Word.Application
    Dim Doc As Word.Document
    Dim ReplSel As Boolean
    
    On Error Resume Next 'gestione errori step by step
    'cerca istanza di Word gi aperta
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
    'se c' stato un errore  perch Word non era gi aperto:
    'aprilo adesso
    Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori
    
    Wrd.Visible = True
    Wrd.Activate
    
    ReplSel = Wrd.Options.ReplaceSelection
    Wrd.Options.ReplaceSelection = True
    
    Set Doc = Wrd.Documents.Open(<TUOFILEWORD>) '(es:"C:\personale\file.doc")
    Doc.Bookmarks("Prova").Select     'nome del segnalibro
    Wrd.Selection.TypeText Range("A1").Value
    
    End Sub
    
    Fammi sapere se quello che avevi bisogno.

    Ciao

    Andrea

  6. #6
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    Grazie Andrea, era proprio quello che cercavo... :-)
    Ora ho da risolvere ancora un problemino che si trova a questo thread:
    http://forum.masterdrive.it/ms-offic...63/index2.html
    Se vuoi dargli un occhiata....
    :-)
    Grazieeeeeeeeeeee

  7. #7
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    mmm...
    un altra cosa... se la complicassimo un p in questo senso:
    io voglio che il dato in A1 venga mandato al bookmark solo quando selezionata la riga che lo contiene...
    Si pu fare?
    Grazie

  8. #8
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    ...con un ciclio IF?
    Cio...
    ...
    if rows(1) .Select = true then
    Wrd.Selection.TypeText Range("A1").Value
    end if

    Pu essere giusta questa parte di codice??

  9. #9
    L'avatar di Elimar
    Elimar non  in linea Scribacchino
    prova
    if activecell.row = 1 then

    ....



    ciao

    Andrea

  10. #10
    L'avatar di machopicho
    machopicho non  in linea Scolaretto
    Non ottengo l'effetto voluto.
    Ma forse non mi sono spiegato bene.
    Riprovo.
    io voglio che SE (If) la riga (i) selezionata tutta, ALLORA (Then) il contenuto della cella (i, 1) viene mandato al bookmark di riferimento.
    E' possibile una cosa del genere?
    qual' il codice che effettua l'operazione?
    Grazie

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Macro per creare un foglio word ed esportare dati
    Da effedi nel forum Microsoft Excel
    Risposte: 5
    Ultimo Post: 03-08-2012, 13:56
  2. Esportare contenuto di una cella di EXCEL su un foglio Word
    Da sasami_sato nel forum Microsoft Excel
    Risposte: 9
    Ultimo Post: 22-11-2011, 19:05
  3. Esportare tabella access in excel o word
    Da emilor66 nel forum Microsoft Access
    Risposte: 0
    Ultimo Post: 27-07-2011, 15:10
  4. [ACCESS] - Esportare dati in Word
    Da Fabio63 nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 12-12-2008, 09:52
  5. [excel] esportare dati
    Da francof nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 30-11-2007, 09:58