Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare una tabella 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

Copiare una tabella da excel a word

Postdi talete79 » 23/07/16 21:58

Salve.
mi occorre copiare una tabella da word in excel. Premetto che ho cercato su questo e altri forum qualcosa che mi aiutasse, ma niente di ciò che ho visto fa effettivamente al mio caso.
Ho preso in parte il codice disponibile qui: http://thetruster.altervista.org/index. ... cel-a-word .

Anzi ho scritto la mia prima macro, che immette in word un'immagine che il cui indirizzo è specificato in una data cella di excel:

Codice: Seleziona tutto
Sub Importa_immagine()
 
'Dichiaro le variabili locali
Dim ValoreCella As String
Dim i As Integer
 
 
'Creo la nuova applicazione
Set xlapp = New Excel.Application
 
'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlapp.Workbooks.Open("C:\Desktop\nome_file.xlsm")
 
'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio 1")
 
ValoreCella = xlSheet.Cells(1, 2)
    Selection.InlineShapes.AddPicture FileName:= _
        ValoreCella, LinkToFile:=False, _
        SaveWithDocument:=True
'    Application.Selection.TypeText ValoreCella

 
'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlapp.Quit
 
'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing

Ho l'esigenza di importare una tabella di excel
ho scritto questa parte di codice:

Codice: Seleziona tutto
Sub Importa_tabella()
 
'Dichiaro le variabili locali
Dim tabella As Table
Dim i As Integer
 
 
'Creo la nuova applicazione
Set xlapp = New Excel.Application
 
'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlapp.Workbooks.Open("C:\Desktop\nome_file.xlsm")
 
'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio 1")
 
'  QUI MANCA LA PARTE DEL CODICE IN CUI SI CHIEDE DI COPIARE
' LA TABELLA DI RANGE, AD ESEMPIO (B6:F8)
   

    Selection.PasteExcelTable False, False, False
 
'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlapp.Quit
 
'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing
 

End Sub
Office 2013 Professional
talete79
Utente Junior
 
Post: 10
Iscritto il: 21/02/12 21:58

Sponsor
 

Re: Copiare una tabella da excel a word

Postdi talete79 » 24/07/16 11:29

ops... nella prima riga del post ho invertito. Intendevo scrivere

"mi occorre copiare una tabella da EXCEL in WORD."
Office 2013 Professional
talete79
Utente Junior
 
Post: 10
Iscritto il: 21/02/12 21:58

Re: Copiare una tabella da excel a word

Postdi Anthony47 » 26/07/16 01:23

Se non sbaglio dovrebbe essere sufficiente inserire
Codice: Seleziona tutto
xlSheet.Range("B6:H6").Copy

Se la struttura dati e' stata dichiarata "Tabella" allora dovrebbe essere possibile selezionare automaticamente tutta l'area con qualcosa tipo
Codice: Seleziona tutto
xlSheet.ListObjects(xlSheet.Range("B6").ListObject.Name).Range.Copy


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: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Copiare una tabella da excel a word":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti