Foglio excel in word

Hai un problema con Excel?

Nuova discussione

Foglio excel in word
di Rita (utente non iscritto) data: 05/05/2015 18:13:12
Ciao a tutti, ho notato una discussione aperta simile ma il problema mio e ""più semplice"
ossia in un foglio Excel io compilo delle colonne che sono sempre le stesse colonna a b c d
che macro posso utilizzare per far si che le le celle vengano incollate in un foglio word
ossia se ho celle compilate che vanno da a1 a d 150 faccio un semplice copia e incolla in un file word
e funziona
vorrei cercare di automatizzarlo
qualcuno ha un idea?
di lepat (utente non iscritto) data: 05/05/2015 18:18:27
sarebbe utile vedere sia il file excel che quello di word in cui hai incollato.
Hai provato a fare l'operazione manuale dopo aver attivato il registratore di macro ?

di Rita (utente non iscritto) data: 06/05/2015 11:20:44
grazie Lepat ma il registratore di macro non registra quello che mi serve.
Ho trovato in rete una istruzione qui sotto che funziona parzialmente
ossia lanciata dal file Excel prende un range di celle
apre il file prova.doc
quando pero' deve incollarle si blocca
io vorrei fare questo ed inoltre vorrei che il file doc si creasse al momento dove incollarle e non aprirne uno gia' esistente.
Qualcuno ha un idea come modificare l'istruzione?

Sub Copy()
Range("A1:F14").Select
Selection.Copy
Set WordApp = CreateObject("Word.Application")
sFilename = "C:PROVA.doc"
WordApp.Visible = True
If sFilename = "False" Then Exit Sub
With WordApp.Documents.Open(sFilename)
.Content.InsertAfter vbCr
.Paragraphs.last.Range.Paste
End With
Set WordApp = Nothing
End Sub

di Rita (utente non iscritto) data: 06/05/2015 16:18:47
Ciao a tutti
cortesemente nessuno ha un'idea di come poter fare?
di Rita (utente non iscritto) data: 07/05/2015 17:06:04
grazie lo stesso
ho risolto
di lepat (utente non iscritto) data: 07/05/2015 18:18:41
rita, sui forum non si viene solo per chiedere ma anche per dare, sei hai risolto sarebbe gentile da parte tua condividere la soluzione con gli altri
di Rita (utente non iscritto) data: 07/05/2015 18:32:36
Vero, non ci ho pensato. Domani provvedo

di Rita (utente non iscritto) data: 08/05/2015 12:13:51
Come promesso ho inserito la sub estratta da un sito inglese e modificata che copia un range di celle Excel in un file word nuovo

Sub ExcelToWord()
  Application.ScreenUpdating = False
  Application.EnableEvents = False
'EVIDENZIARE IL RANGE DI CELLE CHE SI VUOLE COPIARE
  Set tbl = Range("A1:D248")
  On Error Resume Next
      Set WordApp = GetObject(class:="Word.Application")
      Err.Clear
      If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
      If Err.Number = 429 Then
        MsgBox "ERRORE"
        GoTo EndRoutine
      End If
  On Error GoTo 0
  WordApp.Visible = True
  WordApp.Activate
  Set myDoc = WordApp.Documents.Add
  tbl.Copy
  myDoc.Paragraphs(1).Range.PasteExcelTable _
    LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=False
  Set WordTable = myDoc.Tables(1)
  WordTable.AutoFitBehavior (wdAutoFitWindow)
EndRoutine:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.CutCopyMode = False
End Sub

di lepat (utente non iscritto) data: 08/05/2015 12:56:18
ottimo, in questo modo chi aprirà la tua discussione marcata Risolto potrà trovare la soluzione

Vuoi Approfondire?